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1 . 0 INTRODUCTION 


1,1 Scope of Document 

This document specifies the informational interfaces 
within the HAL/S-FC compiler, and between the compiler and 
the external environment. An overall description of the 
compiler, and the hardware and software compatibility 
requirements between compiler and environment are detailed 
in the HAL/S-FC Compiler Functional Specification^. Familiar- 
ization with the Functional Specification is presumed through- 
out this document. 

This Compiler System Specification is for the HAL/S-FC 
compiler and its associated run time facilities which implement 
the full HAL/S language^. The HAL/S-FC compiler is designed 
to operate "stand-alone" on any compatible IBM 360/370 computer 
and within the Software Development Laboratory (SDL) at NASA/ JSC, 
Houston, Texas. 


1. 2 Outline of the Document 

The HAL/S-FC compiler system consists of: 

1) a four phase language processor (compiler) which 
produces object modules compatible with AP-101 Space 
Shuttle Support Software and a sat of simulation tables 
to aid in run time verification. 

2) a comprehensive run-time library which provides 
an extensive set of mathematical, conversion, and 
language support routines. 

The organization of this document is based upon 
the organization of the compiler system. Each part of the 
system is considered as a separate entity with its own 
specific function and interfaces to other parts . Hence, 
there are four sections which cover the parts of the system 
as follows : 


^ HAL/S-FC Compiler System Functional Specification, 24 July 
1974, IR #59-4. 

2 ' 

HAL/S Language Specification, 14 November 1975, IR #61-7. 

^ 1 - 1 .. 
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Section 2 - describes Phase I and the syntax analysis 
phase of the compiler. 

q^^ntion 3 - describes Phase II and the code generation 
phase and specifies in detail the code patterns 
for specific HAL/S constructs. 

section 4 - describes Phase III and the operation of the 
Simulation Data File generator. 

faction 5 - describes the Runtime Library and the 
oSnLpts used rn the library and also gives 
specific information about each library routine 
including size, speed, and algorithm. 

eSfironment and hser-written interfaces to^^^ 

SSudeS SSch“etl"with°tabular data used in the compiler 
system. 

1.3 Status of Document 

This document, plus the HAL/S-FG Compiler System Functional 
c^Tifbr'ification comprise the complete HAL/S-FC Compiler System 
Specif icaiton. This publication is a specification for Release 
10.0 of the HAL/S “FC compiler system. 

The HAL/S-FC compiler inherits some of its operational 
features from the haL/S-360 compiler system for which a 
similar Specification exists. In addition, 
of the HAL/S-FC system are ninder control 

Control Documents which are subject to update. +-ri 

appropriate within this document, references are made 
these companion documents as sources of supplementary 
material and in some cases as primary sources of detailed 
information. 
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The follov/ing list of documents represents the set 
of additional documents which reflect design and control 
of the HAL/S-PC compiler system: 

• HAL/S-FC Compiler System Functional Specification, 

IR #59-4, 24 July 1974, by Intermetrics, Inc. 

• Interface Control Document; HAL/FCOS, Revision 3, 

Published by IBM Federal Systems Division, 
Houston, Texas. 

• Interface Control Document: HAL/SDL, Revision 6, 

Published by IBM Federal Systems Division, 
Houston, Texas. 

• HAL/S-360 Compiler System Specification, IR #60-4, 

by Intermetrics, Inc. 

• HiVL/S Language Specification, IR #61-7 , Published 

by Intermetrics, Inc. 


■■ 1 - 3 ' 

INTERMETRICS INCORPORATED - 701 CONCORD AVENUE - CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 





2.0 PHASE I - SYNTAX ANALYSIS 

The Syntax Analysis Phase performs syntactic and 
semantic analysis of the user's HAL/S source programs. 

It performs all functions necessary to allow an independent 
Phase II program to generate code for the target computer . 

The basic design of the HAL/S system incrudes use of a 
single Phase I for a variety of target machine Phase II 's. 
Thus f the Phase I used by the HAL/S“FC compiler is the same 
one used in the HAL/S—360 compiler. In this section on 
Phase I, data which is supplied in detail in the HAL/S-360 
Compiler System Specification is not repeated. Instead, 
reference is made to the proper ‘section of that document. 

This section deals with the following Phase I functions; 

• Primary Source Input 

• Secondary Source Input 

• ACCESS System Implementation 

• Compiler Directives 

• Template Checking and Generation 

• Printed Data 

• Symbol Table Creation 

• Statement Table Generation 

• Literal Table Generation 

• HALMAT Creation 

• The Optimizer 


,<4 
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2 . 1 Primary Source Input 

Phase I accepts primary source input in the form of 
fixed length logical records. This input must be defined 
by tL SYSiS DD^statement in the JCL invoking the compiler. 
tL first byte of each record is used to define the type of 
the record as follows: 

M - main line 
E - exponent line 
S - subscript line 
D - compiler directive 
G - comment 

For stand-alone operation the source records are 80 bytes 
in length and may contain data in columns 2-80. Optionally, 
the usir may designate, via the compiler option that 

the source scanning is to stop at 

positions 73-78 are to be printed on the listing as Statement 
Reference Numbers". 

When operating in the SDL environment, indicated by^ 
use of the "SDL" compiler option, the source records mus 
still be all the same length but that length may be ftom 
80 to 132 characters. When in the SDL mode, the compiler 
accepts source data from record positions 2 through 72. 

In addition, when the records are of sufficient leng , 
the following fields are recognized and printed on the 
primary source listing: 

• Record Sequence Number - positions 73 through 78; 

• Record Revision Indicator - positions 79 and 80; 

• Change Authorization Field -positions 81 - 88. 


CiltaAL, i! 
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Portions of records beyond position 88 are ignored. 

The compiler's primary input may optionally be in 
a compressed Source format as defined in the HAL/SDL ICD. 
No special notification of use of compressed source is 
needed. Phase I determines the type of input by examining 
the first record. Gatonated datasets defined as primary 
compiler input must all be either in compressed or non- 
compressed format for one invocation of the compiler. 


2.2 Secondary Source Input - The INCLUDE System 

The user may direct the compiler to an alternate input 
by use of an INCLUDE compiler directive in the primary 
input. The exact form of the INCLUDE directive may be 
found in Appendix B. 

The INCLUDE directive defines a member name in a 
partitioned dataset. Phase I uses a FIND macro to locate 
the member on the INCLUDE DD card. If the FIND is unsuccess 
sful, an identical FIND is issued for the OUTPUTS DD card. 

A member^ when located/ is read to xts end by the compiler. 

The records are processed identically to primary (.SYSIN) input 
with the exception that further INCLUDE directives within 
INCLUDE 'd source are not allowed. The same source margins 
are applied to the INCLUDE 'd source as are applied to the 
primary input. In addition, the compiler prints a line in 
the primary source listing indicating the catenation sequence 
number of the DD card on which the member was found and the 
RVL field from the PDS directory entry for the member. The 
RVL field is the first 2 bytes of user data after any TTRN's. 

The individual members which are INCLUDE 'd may be in 
either compressed or uncompressed format, independent of whether 
the primary input was compressed. The form of each INCLUDE 'd 
member is determined by the compiler from the first record 
read . 

Partitioned datasets may be catenated together in the JCL 
form the INCLUDE DD sequence, but such datasets must have 
identical DCB attributes. 


2-3 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE ^ CAMBRIDGE. MASSACHUSETTS 02138 • (617} 661-1840 


EEPHODUCIBMY " 
PRIGINAL PAGE IB r^: . 


2 . 3 ACCESS Rights Implementation 


The HAL/S language vIlEbEf ani external 

be placed upon the usage of is indicated by 

^risrif re rrsri^bio„s 

r^rnfot 2 rii^r^°H^/s-rc r^tLt-syfr is desctibed 

below. ' 

"s^rr'iccEsf ariSf sfs bLf r^id^L 

routine to which the ACCESS attr ^ ^-ompilation unit which 
irirrcolEleal rEfstliction is sUghtly different 
for variables than for blocks; 

a) Variables with the ACCESS attribute may not have 
their values changed. 

b) Block names may not be used at all. 

These restrictions may be controlled 

variable and to the unit being compiled is performed 

names are to be made available to dataset is known 

by processing ®h ®^ternal datas . have partitioned 

as the Program Access File (PAF^ 

organization and is speciixeu ^ 

//HAL. ACCESS DD DSN=<PAF name> , <other parameters> 

where the <PAF name> is the dataset name of the PAF without any 
member specification. 

i_ 4 : 4 -vira PAV contains the information about ^ 

Each ° g which are to be made available to one ^unit o 

ACCESS controlled defined by a Program Identifica- 

compilation. The specified to the hAL/S-PC compiler 

brESrthEpRiGBA^ directive in the primary input 

Stream; 

col 1 

D PROGRAM ID - <ld> 

The <id> field of hhe directive us^a^l^to^S^cto^^ 

identifying current compilation's ACCESS 

PAF to be process n-F t-he> PROGRAM directive in the 

inErs?fei:”cSS;ef iredfaS™ cessing of the PAF 
member specified. 


?M 
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The format of an individual PAF member is described below. 

a) Column 1 of each record is ignored except when 
column 1 contains the character ”C", in which 
case the entire record is ignored. 

b) The portion of each record which is processed is 
the same portion which is processed in the primary 
compiler input (SYSIN) . 

c) COMPOOL elements which are to be made available 
to the compilation are specified as: 

< COMPOOL- name> (<var-name>, <var-name>, ... <var-name>) 


or 

< COMPOOL- name > ($ALL) 



The first format specifies access to individual 
variables within the named COMPOOL. The second 
format specifies access to all variables within 
the named COMPOOL. 

d) Access to external block names is specified as; 
$BLOCK (<ext-name> , <ext-name>, , . . <ext-name>) 

e) Blanks are allowed anywhere in the record except 
that names may not be broken by a blank. 

f ) Either of the constructions (c) or (d), above, may 
span more than one record. 

g) The name of the particular COMPOOL in the form 
(c) above may appear more than once; i.e. 
the variables in a particular COMPOOL do not 
have to be specified at one time . Similarly, 
the form $BLOCK may appear more than once. 


Some validity checking is performed by the compiler 
while processing the PAF member. Warnings are issued for 
the following conditions: 

1) A syntax error on a PAF record - the bad record 
is printed. 

2) Names mentioned in the PAF are not defined. 

3) Elements of $BLOCK in the PAF are not defined. 
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4) Requests for names which are not ACCESS 

protscted • 

5) variables found, but not within the COHPOOL 
specified. 

n • r.ont-ovt of 3 COMPOOIi-naitie 

6) Names used in the context 

which are not COMPOOLs. 

“h '^'’\o'ACCEfs-mSt^led’'virEblel dec^^eirthe^W^ 

irno/opened. If a ^°®|,,i°ErPM''LmberrmaY be ' 

the PROGRZ^ directive and associarea r 

omitted. 


2 . 4 r.nm piler D irective Parsi^ 

• . T c 'Found which contains a D 

When Le remainder of the card for 

a valid iS^llon is Us?ld in Appendix B. 

directives and their tunccioii 

Directive processing is ‘^“be independent^Y^^^^^^ cards 

source language pacing, t.e. ™ SimilarlY, 

rAl/llaSruagrSYTor'as re’nol recognised as such on 
Directive cards. 

2.5 Template C hecking and Generate 

o Fask of source template verification 

and gSrratLn!=Tvef cogL^^^^^^^ iEfA^dfrlL a unit 

S"Xiler"il°enSouSle?ed, Phase I begins to construct the 
sLrcftAlate for that unit as follows. 

Tbe member name ^>'?,^-fc?rris?ic®n™e"'lor"l^^^^ 

This is done by taking t ® The characteristic 

and preceeding it by the ^h^ taking the block name, removing 
name for any unit is crea padding or truncating the 

any underscore ^^ttempt is made to locate a member 

result to ^ tmclude or 0UTPUT6 DD cards. If 

of this name on either contents of the member are compared 

such a member is found, the J ^ created as the compila- 

SS p?oceeS“""if tSrSisting^emplats and the tatemal one 
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agree, a template update is not required, and the existing 
template remains intact. If the templates do not agree, the 
internal template is written to the 0UTPUT6 DD card and STOW'ed 
with the current member name. If the initial search for an 
existing template fails, the generated template is automatically 
written and STOW-ed on the OUTPUT 6 DD card. The PDS directory 
entry for a template member is created with two bytes of 
user data. The two bytes are initialized to X'FOFO', 

Phase I also sets appropriate bits in a field which; is 
passed back to the caller of the compiler ag the high order 
byte of register 15. The definitions of these bit settings 
is defined in the HAL/SDL ICD. 

Generation of the internal template is performed during 
syntax analysis on a token by token basis. As statements 
are encountered which are required in the template, the tokens 
from the statements are added to an internal buffer. When 
a new token will no longer fit in the buffer, the buffer is 
written and clearned for continuation. Thus, the templates 
take the form of strings of HAL/S tokens separated by one block. 
The template statements are continued from one line to the next 
without regard for statement boundaries, thus producing the 
template in the most compact form possible. 

For the comparison of existing templates with new, 
generated templates, the generated records are compared 
character for character with the existing records. Any mis- 
match is considered to indicate a change in the template. 

Templates are never generated using the compressed source 
format mentioned in Section 2.1. The generated templates conform 
to the source margins in effect for the compilation (e.g. for 
an SDL mode compilation, templates are created with source in 
position 2 through 72 of the records. When template records 
are written to the 0UTPUT6 DD card , the records are padded 
with blanks or truncated as necessary to conform to the LRECL 
specification for that DD card. 

When a template has been found to have changed, the 
compiler updates a "Version number" associated with the template. 
For an existing template, the version number is fo\and on a 
VERSION compiler directive card at the end of the existing 
template member. If a new template is needed, the version 
nxamber is incremented by one and placed on a new VERSION 
directive card at the end of the generated template. The 
version number is limited to the range 1 to 255. Upon reaching 
255, the next incrementation causes the nximber to begin again 
at 1. When no existing template can be located, the version 
is set to 1. 
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When templates produced by the compiler are referenced 
in subsequent compilations by use of an INCLUDE for the 
template^ the version numbers from the referenced templates 
are emitted into the produced object code on special SYM 
records which indicate the versions of all external references, 
in addition, the emitted object code for any compilation unit 
contains a SYM record indicating the version number of the 
template created for that compilation unit. This information 
permits the checking, if desired, of proper integration of 
separately compiled units by providing information necessary 
for cross-checking of inter-module references. 


2.6 Listing Generation 


2.6.1 Primary Formatted Listing 

The central printed output of the compiler is the 
primary source listing. This listing is designed to document 
the actions taken by the compiler during its generation of 
an executable form of the user's program. The listing 
reproduces the user's source program in an indented, annotated 
format. Additional information, such as block summaries 
and symbol table listings, are also part of the primary 
source listing. 

The formatting of the primary source listing leads 
to the documentation of the users program in two ways: 1) variable 

annotation, and 2) logical iridenting. 

1) Variable annotation - Each user-defined data 
symbol, when printed on the primary source 
listing, receives "marks" appropriate to the type 
and organization of the Symbol, This annotation 
is that which is defined by the HAL/S Language 
Specification. 

2j Logical indenting - Each statement printed on the 
primary source ilisting is formatted and indented 
to show internal statement structure, and to show 
the statements' hierarchical and nesting relation- 
ships to other statements in the compilation. 
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When operating in the SDL, additional inforitiatiofi is 
provided on the primary source listing. The Iftecord Sequence 
Number, Record Revision Indicator, and Change Authorization 
fields (see Section 2.1) are printed on the primary source 
listing next to the statements to which they apply . Additional 
details of the specific operations performed during SDL opera- 
tion may be found in the HAL/ SDL Interface Control Document. 


2.6.2 Error Mes sagas 

When compilation errors are detected by Phase I, an 
error message is printed in the primary listing at the point 
of detection. All error messages have an identifying code 
associating with them. 

The code is assigned to messages according to a general 
system which groups errors according to a class and a sub- 
class. Multiple errors within a class/subclass combination 
are assigned unique numbers within the group. Thus, every 
possible error in the HAL/S-FC compiler system has a unique 
identifying code. Appendix C lists the error classification 
scheme. 

The text of all error messages is maintained Jon a direct 
access dataset. The compiler retrieves error message text as 
needed from this dataset. During compilation, the ERROR DD 
card defines the error message dataset. This file has partitioned 
organization and contains one member for each error message. 

The member names are identical to the identifying code assigned 
to the errors. 

The record format of the error library is FB and the 
logical record length is 80 bytes. The first record of each 
member defines the severity of that error. The severity is 
a single EBCDIC number in position one of the first record. 

The severities and their effects are: 

0 = warning (compilation proceeds) 

1 = error (further compilation attempted) 

2 - severe error (Phase I syntax check proceeds; code 

generation prevented) 

3 -abortive error (compilation halts immediately) 
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Within the text of an error message, locations into 
which specific descriptive information may be placed are 
denoted by the appearance of two question marks (??) , For 
errors which have this feature, the compiler supplies additional 
description text (such as the name of an identifier) to make 
the printed error message as specific and informative as 
possible. 


2.6,3 Block Summaries 

The HAL/S-FC compiler provides additional information 
on the primary listing at the close of HAL/S code blocks. 

The blocks for which summaries are given are PROGRAM, TASK, 

FUNCTION and UPDATE. 

Information contained in block summaries consists of 
lists of labels or variable names used in various contexts 
within the block. The title "BLOCK SUMMARY" begins the 
list,. For all potentially s^^mmari 2 ed contexts within 
the block, a descriptive heading is printed followed by the 
list of names involved. A next to any name in the 
block summary indicates that the name appears in a context 
which changes its value. The headings are listed below. 

PROGRAMS AND TASKS SCHEDULED 
PROGRAMS AND TASKS TERMINATED 
PROGRAMS AND TASKS CANCELLED 
EVENTS SIGNALLED, SET, OR RESET 
EVENT VARIABLES USED 
PROGRAM OR TASK EVENTS USED 
PRIORITIES UPDATED 
EXTERNAL PROCEDURES CALLED 
EXTERNAL FUNCTIONS INVOKED 
OUTER PROCEDURES CALLED 
OUTER FUNCTIONS INVOKED 
ERRORS SENT 
COMPOOL VARIABLES USED 
COMPOOL STRUCTURE TEMPLATES USED 
COMPOOL REPLACE DEFINITIONS USED 
OUTER VARIABLES USED 
OUTER REPLACE DEFINITIONS USED 
OUTER STRUCTURE TEMPLATES USED 
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2.6.4 Compilation Layout Summary 


immediately proceeding the Symbol Table printout 
at the CLOSE of the HAL/S program^ there is a compilation 
layout map, indicating the way in which PROGRAMS, TASKS, 
PROCEDURES, FUNCTIONS, and UPDATE blocks were defined. 

The indent level in this printout indicates the nesting 
level definition of the block shown. This serves to give 
a quick I overview of the compilation structure. 

2.6.5 # Symbol & Cross Reference Table Listing 

The symbol and cross reference table printed at the 
end of a HAL/S compilation listing provides a detailed 
accounting of all programmer-defined symbols. The table 
listing is organized into two parts; a structure template 
listing and an alphabetized total listing. 

Any structure templates defined in the compilation 
appear first in the symbol and cross reference table. The 
template names appear in alphabetical order. The body of 
each template (i.e. the levels defined under the template 
name) is listed under the template name in the order of 
definition. This ordering provides a quick reference to 
the organization of the structure template. 

Following any listing of the templates, an alphabetized 
listing of all programmer-defined symbols is printed. Symbols 
previosuly listed as element of a structure template are included 
in this list. However, the list is completely alphabetized and 
template organization is not shown. When a particular symbol 
is independently defined in more than one name scope, the 
symbol is multiply listed in order of definition. 


2.6.6 Built-in Function Cross Reference 

Phase I also produces a listing of any HAL/S built-in 
functions used in a compilation. The printout shows the state 
ment numbers at which the references to the built-in functions 
occurred. 
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2.6.7 Replace Macro Text 

If any HAL/S REPLACE statements were used in the 
nomo nation, the text of the macro is printed xn the 
s?Si tab"; listing in the attributes and cross reference 

area. 

2.6.8 Unformatted Source Listing 

Under control of the "LiSTING2” compiler option, 

Phase I will optionally produce, on the file def ined by^ 
the LIST1NG2 DD card, a Ixstxng of the xnput (both SYSIN 
and INCLUDE) source records as read by the compxler. No 
special annotation, formatting, or indenting xs performed. 

Iri the case of input in the SDL compressed format, the 
LISTING2 option produces the records in thexr uncompressed 

format. 

2 . 7 Symbol Table Generation 

Phase I is responsible for initial creation of the ^ 
compiler's internal symbol table. The symbol table consxsts 
of a group of arrays which describe all of the propertxes 
of declared variables and labels. The capacxty of the symbol 
^LlS is under user control by means of the SYTSIZE compxler 
option. This table, as created by Phase I, xs located^in an 
area common to all compiler phases. Thus, Phase II xnherxts 
the initialized table from Phase I. 

Design of the HAL/S-FG compiler includes, as a _ basic 
concept, the use of a Phase I and Phase I/Phase II xnterface 
identical to that of the HAL/S-360 compiler. Thus, the __ 
description of the internal symbol table to be found xn the 
HAL/S-360 Compiler System Specification, AppendxxB. 2 xs 
sufficient to define the HAL/S-FC table. 
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2.8 Statement Table Generation 


The statement table passes information about executable 
statements from Phase I of the compiler to Phase III. This 
information allows Phase III to include statement type and 
target variable information in the Simulation Data Files. 

Due to the use of a common Phase I in the HAL/S-360 
and H^/S-FC compiler systems, the Statement Table descrip- 
tion in the HAL/S-360 Specification document is sufficient 
to describe the HAL/S-FC table. (See Appendix B.3 of 
that document) . 

The basic table description includes reference to an 
"extension" field in which statement memory addresses and/or 
SRN data is stored. Use of this field is activated by use of 
certain compiler options? 

SRN data is included in the Statement Table if either 
of the SRN or SDL compiler options are used. 

Beginning and ending addresses for individual HAL/S 
statements are included in the Statement Table when the ADDRS 
compiler option is used. 

The Statement Table is produced on the file specified 
by the FILE6 DD card. No Statement Table data is communicated 
via in-memory tables. 


2.9 Literal Table Generation 

The format of the HAL/S-FG literal table is identical 
to that used by the HAL/S— 360 compiler as described in 
Appendix B,1 of the HAL/S-360 Compiler System Specification, 

The size of the area in which character literal data is 
stored is under user control via the LITSTRINGS compiler 
option. This character literal area is communicated to 
subsequent phases of the compiler through common memory 
locations . 

The portion of the literal table which contains 
arithmetic literals, bit literals, and pointers to 
character literals is passed to later phases via the data- 
set defined by the FILE2 DD card. 
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2.10 HALMAT Creation 

HALMAT is the intermediate code medium by which 
the structure of the compiled HAL/S program xs passed to 
Phase II for code generation. The HAL/S-FC compxler uses 
the same Phase I as the HAL/S- 360 compiler. Therefore, 
the HALMAT produced by Phase I for either system is the same. 

A description of HALMAT as used by these compilers can be 
foSd ii Appendix A of the HAL/S-360 Compiler System Specif r- 

cation. 

HALMAT is passed to Phase II through use of auxiliary 
storage as defined by the FILEl DD card. 

2.11 The Optimizer 

The HALMAT produced by Phase ^ ^A^seoarate^phase 

tion of the, HAL/S P^fam beina^compiled A sep^^ 

con«ptS:??rrparraf PhasM. Its operation is transparent 
tHhe user as it produces no standard printouts. 

The Optimizer performs the following functions: 

- Common subexpression elimination 

- Additional literal folding 

- Replacement of unneeded divisions by multiplications 

- Supression of unnecessary matrix transpose operations 

- Indication of procedures which cannot be leaf 
procedures (as an aid to Phase II) • 

These operations are carried out by modifying the 

HALMAT, literal table, and symbol table. 

While the Optimizer is a separate phase, it ±s _ . 

concep?uai?y a pa?t of .Phase I and is described in the HAL/S -360 
Compiler System Specification. 
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3.0 PHASE II - CODE GENERATION 

The code generation phase of the HAL/S-FG compiler 
has the primary function of producing machine language 
instructions for the AP-101* Phase II also performs other 
tasks which are also the subject of this chapter. 

This section deals with the following Phase II functions; 

• Code Generation 

• i Naming Conventions 

• Printed Data 

• Symbol Table Augmentation 

• Statement Table Augmentation 

3.1 Code Generation 

3.1.1 Bases and Conventions 

Phase II produces AP-101 machine language instructions 
which perform the operations indicated by each line of HALMAT 
received from the syntax and semantic analysis phase. This 
section describes in detail the ground rules which the code 
generation phase follows in producing object code. The 
following terms will be used throughout the ensuing text; 

R - A general accumulator (integer or scalar); 

X - An indexing register (for subscripting); 

B - A base register containing a base address 

Used to compute the effective address of a 
variable, constant, temporary, or program 
label . 

OFFSET -■ The constant term which, when subtracted from 
the actual data address of a variable, yields 
the address of the O'th item of the aggregate 
data collection (note that all HAL subscripts 
start counting from 1). This is 0 when the 
variable is a single item, 

VAR - The address of a declared non-parameter HAL 
variable. For addressing purposes, it is 
actually the base address of the actual data 
minus the OFFSET. Single valued integer, 

! scalar, or bit input parameters also will use 
this form. 

PAR - The address of a formal parameter passed "by 

reference". This includes any assigned parameters , 
plus any input parameters which are not simple 
integer or scalar variables. Note that PAR 
actually contai.ns an address, 
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DELTA - The constant indexing term in a subscript 
calculation. This term may also reflect 
the displacement of a structure terminal 
within a structure template. 

OP — Any AP—lOl machine instruction. 

Note - When VAE or PAR appears in machine instruction 
constructions, it represents the displacement difference 
between the data address and the base address contained in 
the base register B. 

3. 1.1.1 Register Usage . The following register assignments 
are used by the code generator: 

F0-F5 Used for floating point accumulators and 

parameters. 

F6-F7 Used for floating point accumulators 

only. 

0 Stack register. This register points to 
the caller's register save area in the run 
time stack. In addition, all formal 
parameters, temporaries, and AUTOMATIC 
variables in REENTRANT procedures are based 
on this register. 

1 Global data addressing register. This 
register is used to address all of the 
declared variables and literals within a 
compilation unit. 

2 Work addressing register. This register is 
used to pass address parameters, dereference 
name variables, and set up any other dynamic 
addressing. 

3 Local addressing register. This register is 
used in SRS instructions only to address a 
certain subset of the local data in a block. 

4 Linkage register. This register records the 
return address for all subroutine linkages. 

It may also be used for an integer accumulator. 
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Used for integer accumulators, index 
registers, and parameter passage where 
applicable. 


3112 Storage Allocation. The HAL/S-FC compiler arranges 
data in memory such that "the least number of base registers 
need be dedicated in addressing. 

Data is grouped into two major categories; single value (constant 
offset=0) and aggregate (array, vector-matrix, struct^e with 
copies). Within in each group/ data is ordered such that data 
requiring the same boundary alignment is adjacent, minimizing 
the storage lost due to hardware alignment requirements. Within 
the. aggregate group, ordering is further carried on such that 
multi-dimensional arrays (with larger offsets) come after single 
dimensional arrays. These above orderings are carried on ^ 
independently for; 1) program data, and 2) each COMPOOL block 
contained in the compilation unit. Note that program data 
includes all variables within the compilation unit including 
those defined in procedures, functions, or any other block. 

Structure templates are internally ordered such that the ^ 
minimum boundary alignment within any node level is required. 
Template matching requirements guarantee that templates 
exhibiting identical properties will be identically reordered. 

After all groupings are complete, storage assignments are made, 
with the required base-displacement combinations being generated 
to properly access the data. Note that the storage addresses 
assigned refer to the actual data beginning, but the base'^ 
displacement address includes the negative OFFSET value. 

Note that all formal parameters andaall AUTOMATIC variables 
in a REENTRANT PROCEDURE or FUNCTION are based off the stack 
register (0) . 

For arrays, the offset is computed as follows for the number 
of array dimensions: (N^ is the i^h array dimension) . 


# Dim 

0 

1 

2 

3 


Offset 

0 

-1 

(-1 N 2>-1 
(((-1 N 2 )- 1 ) N 3)-1 
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The array OFFSET is then multiplied by the total width of 
the data type specified. For integers, scalars, bits, and 
characters, this is the width in halfwords to contain one^ 
item of data. For vector and matrix types, this is the wi4th 
in halfwords for one item times the total number of items in 
the vector or matrix. 

For structures, the OFFSET is 0 if the structure has no copies . 
If the structure has copies, the offset is -W, where W is the 
aligned width of one copy of the structure template. 

Example : 

DECLARE A SCALAR, 

B INTEGER, 

C CHARACTER (7 )f 
D ARRAY (5) DOUBLE; 

DECLARE E ARRAY (5), 

F ARRAY (3, 3) VECTOR, 

G MATRIX; 

DECLARE H DOUBLE, 

ARRAY (5, 5) INTEGER; 


Alignment 

Halfword 

Halfword 

Fullword 

Doubleword 

Halfword 

Fullword 

Fullword 

Fullword 

Doubleword 


NAME 

Location 

Base 

Displacement 

(In Decimal) 
Offset 

B 

00000 

1 

0000 

0 

C 

00001 

1 

0001 

0 

A 

00006 

1 

0006 

0 

H 

00008 

1 

0008 

0 

I 

OOOOC 

1 

0006 

-6 

E 

00026 

1 

0024 

-2 

G 

00030 

1 

002E 

-2 

F 

00042 

1 

0028 

-26 

D 

00078 

1 

0074 

-4 
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3.1.1. 3 Addressing Concepts . This section describes the 
general addressing rules for data. To the extent possible, 
data can be directly addressed via some combination of base 
register and bit displacement (eleven bits for indexed 
addressing) . This is not possible whenever the data item is 
a formal parameter other than a simple integer or scalar, 
or any formal parameter scoped in from an outer to an inner 
procedure. The skeletal forms given in Section 3.2.2 assume 
the most commonly used addressing forms. The rules described 
here should be superimposed upon these skeletal forms to 
interpret all possible combinations of operations between 
operands . 

Simple Addressing Forms 
Simple Variable 

OP R, VAR(B) 

Simple Aggregate Component 

(array or vector-matrix) 

OP R, VAR+DELTA(X,B) 

Simple Integer-Scalar formal parameter 
OP R, VAR(O) 

Simple Aggregate formal parameter 

L B, PAR(O) 

OP R, DELTA (X,B) 

NAME Variable in de-reference context 

LH B, VAR(B) 

OP R, DELTA(X,B) 

NAME Variable in de-reference context 
(ASSIGN formal parameter) 

L B, VAR(B) 

LH B, 0(B) 

OP R, DELTA(X,B) 

REMOTE Variable 

OP@# R, ZCON(X,l) 

ZCON DC Z(0, VAR, 0) 
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Scoped Formal Parameter Addressing Fomms 

For scoped formal parameters, generation of an effective 
address requires a loop to trace references back through 
multiple save areas in the run time stack. In both of the 
scoped formal parameter sequences below, the offset of 0 
in the load instruction at the head of the loop represents 
the fixed location of the next higher level’s register copy. 
The loop terminates when the nest level of the parameter in 
question is equal to the nest level of the current save area 
being referenced. 

Scoped Integer-Scalar formal parameter: 



LHI 

4, <scope number of parameter> 


LR 

2, 0 

LOOP 

L 

2, 2(2) 


CH@ 

4, 9(2) 


BNE 

LOOP 


OP 

R, VAR(2) 

Scoped Aggregate or NAME formal parameter : 


LHI 

4, <scope number of parameter> 


LR 

to 

o 

LOOP 

L 

2, 2(2) 


CH0 

4, 9(2) 


BNE 

LOOP 


LH 

2, PAR (2) 


OP 

R, DELTA (X, 2) 

Scoped 

NAME 

ASSIGN formal parameter: 


LHI 

4, <scope number of parameter> 


LR 

2,0 

LOOP 

L 

2,2(2) 


CH0 

4, 9(2) 


BNE 

LOOP 


LH 

2, PAR(2) 


LH 

2, 0(2) 


OP 

R, DELTA (X,B) 
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Address passage addressing forms 

For parameter passing to PROCEDURES , FUNCTIONS, arid library 
routines, it is often necessary to pass address pointers 
instead of data. The following sequences could be used 
anywhere the instruction LA appears in the generated code 
sequence (including NAME assignments) . 

Unsubscripted variable; 

la R, VAR(B) 

Subscripted variable: 

SLL X, <index alignment> 

LA R, VAR(X,B) 

Unsubscripted REMOTE variable; 

L R, ZCON(l)* 

Subscripted REMOTE variable; 

SLL X, <index alignment> o^ SLL R, <index alignment> 

L R, ZCON(l)* A R, ZCON(l)* 

AR R, X 

Unsubscripted variable to REMOTE library: 

LA R, VAR(B) 

lAL R, X'0400' 

Subscripted variable to REMOTE library: 

SLL X, < index alignment> 

LA R, VAR(X,B) 

lAL R, X'0400' 


* ZCON DC Z(0, VAR, 0) . 
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The computation for all indexing is done as follows. All 
constant index terms are factored out from the variable terms. 
The variable terms are computed according to the natural 
sequence of unwinding aggregate data. The constant terns 
are similarly computed to form a DELTA. The variable subscript 
in register X is shifted according to the halfword width of the 
data being indexed, except for those instructions v/hich -perform 
automatic index alignment. The DELTA is similarly shifted at 
compile time. If 0 £ DELTA < 2048,. it is used in the variable 
displacement. Otherwise, it is added to X if X is non-zero, 
or loaded into a newly created X if X is zero (i.e. the sub- 
script contains no variable terms) . 


3. 1.1. 4 Condition Codes . The following table lists the 
allowable relational operations and the resultant condition 
code - referred to as COND throughout the remainder of this 
section. Note that the AP-101 conditional branch instructions 
branch on the "not true" condition. 

<OP> COND 

■ ■ 3 ■ ■ 

4 

< 5 

> 6 

-» < or > — 2 

-’ > or < = 1 
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3* 1.1.5 ZCONS and the Calling Mechanisms . Throughout the 
descriptions of generated code of Section 3.1.2, branches 
to other CSECTs (comsub or library) are generally indicated 


as: 


ACALL <routine name> 

The actual implementation of this linkage is to go 
not directly to the named routine, but instead to branch 
indirectly through a long address constant (ZCON) located 
in sector 0 of the machine. 

When the target of the branch is a compiler-generated 
CSECT (a COMSUB), the ZCON referenced will be one created 
during compilation of the COMSUB. The long indirect address 
will be in a CSECT named #Znnnnnn (see Section 3.2) which will 
in turn refer to the real code CSECT. 

When the target of the branch is a library routine, the 
ZCON referenced will be one provided with the library. Its 
name will be #Qnnnnnn and it will in turn refer to the proper 
library code CSECT, Certain library routines, for reasons of 
execution speed, are referenced directly by compiler-emitted 
code without going through a ZCON. These routines are designated 
in the BANKO column of the library documentation. This direct 
addressing requires that these routines reside either in sector 
f ) zero or in the same sector as the compiler code which references 

them. 

The use of ACALL in the descriptions implies an external 
call. In actuality, the instruction generated may be either; 

SCAL 0, <routine name> 
or 

BAL 4, <routine name> 

depending on whether the library routine has been designated 
as PROCEDURE or INTRINSIC type. 

Some of the parameter setups show the use of PI, P2, 
and P3 for parameter registers. The following table shows 
the actual register values for Pi, P2, and P3 depending upon 
the nature of the library routine (see library documentation 
for specific details) . 



PI 

P2 

P3 

Intrinsics 
Procedure - 

1 

2 

3 

PI used 

2 

4 

7 

PI not used 

X 

2 

4 
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3. 1.1. 6 The Runtime Stack . The HAL/S-FC compiler system 
employs a runtime stack mechanism as an integral part of 
its operation. The stack mechanism is used to provide 
subroutine linkage areas, temporary work areas, error environ- 
ments, and to provide reentrancy of code blocks when needed. 

The actual memory used as a stack space for a given HAL/S 
process is provided by the flight computer operating system 
(FCOS) . The determination of the size required for a 
particular stack is made by the flight computer support software 
linkage editor. The linkage editor determines stack size 
(and upon special request will create a stack CSECT) from 
information provided on SYM cards in the modules being 
link edited. The HAL/S-FC compiler emits the SYM cards as 
part of its object modules. The runtime library uses a 
system of macros to generate the properly named DSECT' s 
and SYM entries for stack size computation. 

The details of formats and requirements relating to 
stack generation can be found in the HAL/SDL Interface 
Control Document. That document also contains the detailed 
description of the "stack frame", that portion of a total 
stack which is used by an individual subroutine when that 
subroutine has been invoked. The description of the basic 
stack frame is reproduced here for reference. 

The active stack frame is pointed to by the pointer 
in register RO . The back link to the previous stack frame 
is established when a new level is entered. A pointer, NEW R3 , 
is established for any block with a local data area. If a 
local data area is not present, e.g. in the case of a HAL/S- 
FC library routine, NEW R3 is set to zero. See Section 3. 1.1. 7 
for a definition of the local data area. 
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STACK LAYOUT 


RO: 

Stack ptr 


lower address 


."pushed” 
stack frames 


0 PSW (left half) 


2 old stack ptr 


address size 


I new Rl* 


inew R3* 

' (local data r 3 
I ptr). 


REGISTER SAVE 
AREA 


minimum size; 
18 halfwords 


12 Fixed Ar^^ #1 

X 4 Fixed Arjg #2 

16 Fixed Ar|g #3 

18 Floating Arg #1/ etc. 
ERROR Vector 

[ ’ User Data " 

Temporaries 


optional area de* 
fined by each 
routine 


available for 
called routines 


two halfwords wide 


higher address 


* For HAL blocks only 
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3. 1.1. 7 Local Block Data Areas . During execution of a 
HAL/S-FC program, certain machine registers have dedicated 
uses as described in Section 3.1. 1.1. In particular, 
register R3 is a local addressing register which points 
to the local Block Data Area for the block in execution. 
These R3 values are saved on the runtime stack as indicated 
in Section 3. 1.1.6. The format of a local Block Data Area 
is the subject of this section. The HAL/SDL ICD contains 
the controlling definitions of these areas. 

Block Data Areas are created by the compiler and are 
part of the #Dnnnnnn CSECT generated for a compilation unit, 
A Block Data Area may exist for any Program,. Procedure, 
Function, Update Block, or Task. The compiler-emitted code 
for block entry (as defined in Section 3.1.9) loads R3 
with the address of the Block Data Area for the block 
being entered. The format of such an area is shown in 
the following diagram. 



Fields 



Field Definition 

1. Blodk ID A 16 bit field uniquely identifying the 

HAL block. The first 9 bits are a 
"compilation number" supplied by the user 
via the COMPUNIT compiler option. The last 
7 bits are a block count generated internally 
for each new block within a compilation unit. 





Field Definition 

2. XU EXCLUSIVE/UPDATE flag. (1 bit). Set to 

one if block is either an UPDATE block 
or has the EXCLUSIVE attribute. 


ONERRS (6 bits) , The number of discrete errors 

for which an ON ERROR statement exists in 
the block. 

ERRDISP (9 bits) . The displacement in half words 

from the stack frame pointer register (RO) 
to the error vector 


3 . tYP (1 bit) . Set to zero for EXCLUSIVE 

procedure or function. If an UPDATE 
block, set to one if shared data 
variables are read only. Set to zero 
if shared data variables are to be 
written. 

Reserve SVC# (8 bits). SVC number for the reserve SVC: 

15 for a code block 

16 for a data area. - ^ 

4. Release SVC# (8 bits). SVC number for release SVC; 

17 for a code block 

18 for a data area. 


5. Lock ID (15 bits). An indicator of which code 

block or data areas are being used. For 
a code block this is the address of the 
EXCLUSIVE DATA CSECT of the procedure/ 
function. For a data area this is a bit 
pattern indicating which data areas (by 
lock groups) are involved. If the "master 
lock" was specified, the bit pattern will 
be all ones. 
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^ 1 1 ft Parameter Passing Conv entions for U ser-written Routing . 
TO the extent possible, HAL/s parameters . . 

registers. Scalar parameters are passed The 

registers. All others are passed in general registers. The 
following rules describe how the registers are designated, 
and what they contain for each type of parameter. 

General purpose registers 5-7 and floating point registers 
0 2, 4 are available for parameter passing. If the supply 

of registers is exhausted before the parameter list, the 
balance of the parameters are passed in memory locations. All 
parameters are located via the stack register (O) . 

Allocation of general and floating registers is carried 
on in parallel. If no scalar parameters exist, no floating 
point registers will contain parameters. 

General purpose registers 5 through 7 are . . 

contained in the stack beginning at displacement |2io. Floating 
point registers are not automatically saved, and it is the 
responsibility of the called program to do so. Storage 
Iocl??ons are reserved in the stack for this purpose as desorrbed 
below. Parameters which cannot be passed ^® 9 isters are 
automatically stored in the called procedure s stack by the 
caller. The allocation of these stack locations is identical 
to the allocation for floating point values. Note that, 
unlike ordinary HAL/S variable allocation, parameter allocation 
is not subject to reordering to minimize alignment conflicts. 

The first available stack location is at 18io off the^stack 
register. All parameters are assigned storage in order starting 
at this point (the exception being parameters contained in 
general registers 5 through 7, which are allocated space in 
the register save area as described above) . Any necessary 
alignment is performed as needed. 

Arguments are either input type or ASSIGN type. (Input 
types are those whose values will not be changed by the calle 
routine.) The actual information which is passed for a ^ 
particular argument is dependent upon the following factors. 

• whether the argument is input or ASSIGN; 

• whether the HAL/S data type of the argument is an 
aggregate (i.e. more than one element, as in a matrix;; 

• whether the argument has any arrayness or structure 
copies to be passed; and 

• whether any arrayness or structure copies are defined 

via an ARRAY (*) or -STRUCTURE (*) specification. 
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The following table and list show the information which 
is passed for an argument with particular attributes. 


Data 

Type 

Argument'' .. 
Type 

Integer 

Scalar 

Bit 

Character (*) 

Vector 

Matrix 

Structure 

Input (no 
arrayness 
or copies) 

1 

2 

3 

4 

5 

6 

7 

ASSIGN (no 
arrayness 
or copies) 

8 

8 

8 

4 

5 

6 

7 

Input or 
Assign 
(with 
arrayness 
or copies) 

9* 

9* 

9 * 

10* 

9* 

9* 

, ■ 

11* 


Information Passed 

1 A halfword or fullword of data. 

^ -A single or double precision floating 

point value. 

3 Up to 32 bits of data (halfword or 

fullword depending upon declared 
size) . 

4 Address of the max-size byte of the 

character string. 

5 Address of the 0“^^ item in the VECTOR 

(i.e, 1 item Width ahead of the actual 
vector) . 

6 Address of the 0^^ item as if the 

MATRIX were a VECTOR of length mxn. 
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RBPEODXICIBttOT OF 
OElGWAL PAGE IP 



Key 

7 

8 
9 

10 

11 


Information Passed 

I 

Address of the first location in 
the structure as defined by its 
template. (Note that item position 
within a template is subject to 
compiler reordering unless RIGID 
is used) . 

Address of the data item. 

Address of the 0"*^^ item of the 
array. 

Two items are passed. The first 
is the address of the O^h array 
item. The second is the number of 
halfwords of memory occupied by 
one character string element 
(including the halfword containing 
the max and current size bytes) . 

The address of the first data in 
the 0^^ copy. 



If the parameter is declared as ARRAY (*) or 
-STRUCTURE (*) , an additional parameter word 
is passed containing the value of the unspecified 
dimension. 


For all cases where auxiliary values are allocated for 
a single parameter (i.e. CHARACTER(*) ARRAY or ARRAY (*)) , the 
parameters (up to 3) must be contiguous. Thus, if more 
pointers are required than registers are available, then 
the v;hole parameter sequence will be pushed into the stack. 

Example : 

P; PROCEDURE(X, Y, I, J, K, Z, C, L) ; 

DECLARE SCALAR, X, Y, Z DOUBLE; 

DECLARE INTEGER, I, J ARRAY (*), K, L; 

DECLARE CHARACTER(*) ARRAY(*), C; 
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Upon entry to this procedure, the stack and registers 
are as follows: 

1 word > I 

Rl+12^0 

+ 14 

+ 16 

+ 18 

+ 20 

+ 22 

+24 

+26 

+28 
+3 0 

+32 
+34 


, „ 2-17 ■ ■ ■ ■ 
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1 

I j unused 

1 

address of O^h 
array element of J 

I 

size of 1 

array J ■ 

» 

X 

Y 

1 

K 1 unused 

1 

1®^ word of Z 

2^^ word of Z 

address of 0^^ 
array element of C 

# HW occupied by 
one element of C 

Size of array C 

1 

L j unused 

^ 1 ^ 


also in R5 
also in R6 
also in R7 
also in FO 
also in F2 

^ also in F4 , F5 


3.1.2 Integer and Scalar Operations 

Nomenclature 

The register R is any of the available set of 
accumulators. The terms I, I 2 , S,and S 2 refer to the single 
and double precision versions of Integer and Scalar values 
respectively. It is assumed that any implicit precision or 
type conversions have been accomplished prior to generating 
the code sequences shown below. 


3 . 1. 2 . 1 Arithmetic Operators . Integer and scalar arithmetic 
operators generally employ two operands, denoted as X and Y. 

X is assumed to be loaded into register unless otherwise 
noted. If y is also in a register, it is represented by the 
form Ry. 


Operation 

Type 


Code 

Alternate 

Code 

X + Y; 

I 


AH 

R / Y 

X 

AHI 

R , 

X 

Y* 


"2 


A 

R , Y 

x' 

AR 

R » 

X 

R 

Y 


S 


AE 

R , Y 
X 

AER 

R r 
x' 

R 

y 


"2 


AEP 

R , Y 

X 

AEDR 

R , 

X 

R 

y 

X - Y: 

Similar 
operator 
place of 

to 

is 

AH 

X + Y except 
used. (For 
in the above 

that the 
example, 
list. ) 

subtract 
SH in 

(Multiply) 
X Y; 

I 


MH 

R , Y 
x' 

MIH 


Y* 




SLL 

R , 15 

X 





^2 


M 

V 

MR 


R 

y 




SRDA 

=^x+X' 1 





s 


ME 

R , Y 
x' 

MER 

R , 
x' 

R 

y 


®2 


MED 

R , Y 
X 

MEDR 

R f 

x' 

R 

y 


Note that the shift operations used in the integer multi- 
plications are required to correctly normalize the result in the 
proper registers. 

Certain constant multipliers are optimized to avoid 
using actual multiply instructions. They are described below. 


* Used if Y is a literal. 
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Operation 


Code 


Alternate Code 





I 2 ” 

SLL 

R^, n , n>l 





AR 

R j ^ j <’ n=l 




I, 2 " 

SLL 

Rj, n , n>l 





AR 

Rj, Rj, n=l 




X 1 

no code for any type 




S 2 

AER 

"s' "s 




S 2 2 

AEDR 

"s' "s 



X/Y: 

S 

SER 

"^+1' R^+1 

SER 

R +1 

X 



DE 

"x' 

DER 

^x' 


^2 

DED 

"x' 

DEDR 



X**Y: 


X 


R 


The exponentiation is performed by subroutine. The 
patterns shown for I and S are identical to those 
which will be generated for I 2 and S 21 except for 
the obvious differences. 

A 


1**1 

LH 

5, X 


ACALL 

HTOE* 


LH 

6, Y 

s**i 

LH 

6, Y 


LE 

0, X 

s**s 

LE 

2 , Y 


LE 

0, X 


ACALL 

aPWR3 


Argument Setup 


I Actual Call 


where a and ^ represent the types of operands X and Y 
respectively; 


Type of X ot 

Type of Y 3 

single precision integer ) 
double precision integer ? E 
single precision scalar ; 
double precision scalar D 

single precision integer H* 
double precision integer I* 

single precision integer H 
double precision integer I 
single precision scalar E 
double precision scalar D 


Return is in FO for a of E or D? in R5 for a of H or I. 

* If Y operand is a positive integer literal, the HTOE conver- 
sion is eliminated and the PWR routine invoked is aPWRH or 
aPWRI. 
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REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


Operation TYP® Code Alternate Code 

Note: Scalar expressions raised to integer literal 

powers from 1 to 16 are performed in-line via 
repeated multiplication, using the binary 
powers algorithm. The following examples should 
serve to illustrate the method. 


X**l: 


No code generated. 

X**2 : 

S 

MER R , R 

- 


X' X 

X**3 : 

S i 

LER R^ , R^ 
MER R^, R^ 
MER R^, R^ 
(result in R^) 

X**6 : 

S 

MER Ry 

LER R^, R^ 

MER R , R 

X X 

MER R^ , T 

T X 

(result in R,p) 


For type S 2 , the instruction MEDR is used in pia-e of MER. 
Two liER’s must be used in place of one. 

Operation i Type Code 

+X No code generated. 

I, It LACR R , R 

'2 x' X 

S LECR R , R 

X X 

S, LED R , X 

LECR R , R 

X' X 
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3.1.2. 2 Comparison Operators . The full complement of 
relational operators Is allowed for Integer or Scalar 
operations between single quantities. Only equal or not 
equal operators are allowed for arrayed comparisons. No 
logical variables are created by comparisons. Instead, 
branching to one of two points is used for true/false 
relations. 


Operation Type 


Code 


Alternate Code 


X < OP > Y : 


I 


CH Y 

BC COND , not-true-label 


C R^, Y 

BC COND, not-true-label 


GR R^, Ry 


S 


s 


2 


CE \ 

BC COND, not-true-label 
CED Y 

BC COND, not-true-label 


CER R^, Ry 
CEDR R^, Ry 


Note: For comparisons to the literal 0, the condition code 

is used directly. If the condition code is not valid, the 
instruction LR or LER is used to set it. 


3. 1.2.3 Conversions . Where necessary, conversions are 
performed in intrinsic or library functions. Some conversions 
do not require any generation of code. 

Integer Conversions 

Operation Type Code Alternate Code 

*1,1 TO S,S I LH 5, X ) 

^ ^ > argument setup 

L 5, X ) 

ACALL aTOg f actual call 


TYPE OF INTEGER a 

TYPE OF SCALAR g 

Single Precision H 
Double Precision I 

Single Precision E 
Double Precision D 


* I TO S does not call library routine; Instead code generated is: 

I CVFX Fx, Rx. 3-21 
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Operation Type 

l,l2 TO BIT 
I TO CHAR I 


Code 


Alternate Code 


No code necessary 
LH 5, X 

LA 2, temp-string-area* 

ACALL HTOC 
L 5, X 

LA 2 , temp-string-area* 

ACALL ITOC 


I TO I I 

2 ^ 

l2 TO I l 2 

Scalar Conversions 
Operation Type 

S,S2 TO I,l2 S 

So 


SRA 

SLL 


«x' 16 


Code 


LE 

LED 


0, X 
0, X 


Alternate Code 
LER 0, R^ I argument 


LEDR 0, R^ j 


ACALL aTOP 


} call 


TYPE OF SCALAR a 

TYPE OF INTEGER 3 

Single Precision E 
Double Precision D 

Single Precision H 

Double Precision I 


S,S2 TO BIT 
S TO CHAR 


Same as for scalar to integer 
LE 0, X 

LA 2, temp- string-area* 

ACALL ETOC 


* temp-string-area contains converted string. 
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:l i U 


'! I 


Operation Type 

S 

2 

S TO S 


Code 


Alternate Code 


LED 0, X 

LA 2 , temp-string-area* 
ACALL DTOC 


LE 


X' 


SER R +1, R +1 


3. 1.2. 4 Assignments . For all assignments, type conversion 
may take place across the assignment operator. For multiple 
assignments, the left hand side operands are grouped by 
data type to minimize the number of conversions perfomed. 
The order in which the groups are processed is determined by 
the following table: 


Left Hand 
Type Ordering 

First 


Right Hand Operand Type 


I 

^2 

Chair 


•"2 

Char 


S 

Char 


•"2 

Char 

S 


! J 


Last 


Vector-Matrix 


Character is always performed before any right hand side conver- 
sion is performed. 

The following sequences assume that Rx has already had the 
required integer or scalar conversions performed as described 
in Section 3. 1.2. 3. 


* temp-string-area contains the resultant string. 
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Code 


Operation 
Y = X; 


Type of Y 


repeoducibility of th 
original page IG 


I* 

STH 

R f 
x' 

Y 

H 

to 

ST 

R f 
x' 

Y 

S 

STE 


Y 

^2 

STED 


Y 


Rx is also marked as now containing the value Y. Subsequent 
usages of Y may use this register in lieu of the copy of Y 
in memory until such time as the contents of this register 
are destroyed or a label is generated. 

* If X is an integer literal of value 0 or -1, then the following 
code will be generated: 


Y = 0; 

Y = -1; 


I 

I 


ZH 

SHW 


Y 

Y 


3.1.3 Bit String Operations 


3 . 1.3.1 Bit String Operators . Bit string operators include 
the following: AND (&) , OR (\ ) , and CAT ( M ) . They generally 

employ two operands, denoted here as X and Y (of lengths Nx and 
Ny respectively). X is assumed to be loaded into register Rx 
unless otherwise noted. If Y is also in a register, it is 
represented as Ry. Note that the & and \ operations will pad 
the bit length of the shorter bit string to the length of the 
longer bit string. 


Operation 

Bit 

Length 


Code 


Alternate 

Code 

X & Y 

N , 
x’ 

N < 
Y - 

16 

NR 

R f 
x' 

‘'y 

NHI 

R , 

X 

1 Y ' * 



Ny > 

16 

N 

^x' 

Y 

NR 

R f 
x' 


X 1 Y 

^x' 

v| 

>1 

16 

OR 

^x' 

R 

y 

OKI 

R , 

X 

1 Y • * 

’ 

N , 
x' 

A 

>1 

16 

0 

R f 

X 

Y 

OR 

R / 

X 

R 

y 

r ^ X II Y 

N 

y 

< 16 


SLL 

R t 
x: 

N 

y 




i' ' " ■ ■ 




OR 

\ ' 

R 

y 




! '■ 

N 

Y 

> 16 


SLL 


N 

Y 




i . ' 




0 


Y 

OR 

R f 
x' 

R 

y 


* used only when Y is a BIT literal. 
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. 1 - . 2 Bit Strinq Comparisons . The only possible 
relational operators to^ bit -^t rings, as with bit operators, 
ni l ox {see Section 3. 3. 1.4). The bit strings are 
padded to be of equal lengths. No logical variables 
are created by comparisons. Instead, branching to the 
"not-true-label" occurs with the "not true condition. 


Operation 


X <0P> Y 


Bit Length 


Code 

Alternate Code 

\ 1 

CH 


CHI Rjjf 'Y'* 


BC 

COND, not-true-label 

N , N >16 
x' y 

C 

R , Y 
x' 

CR R^, Ry 


BC 

COND , not-true-label 


3 . 1 . 3 . 3 Component Subscripting . Component subscripting 
for bit strings consists of shifting and &'ing out unwanted 
components of the subscripted bit string. The resultant 
bit string length, Nj./ determines a binary mask, whose 
decimal value is and bit number "I” of the original 

bit string is the last component of the resultant bit 
string. 


Operation 

X 

subscript 


Bit Length 



V . N 

'^variable subscript x 


Examples of Subscript Forms: 

Subscript 

I 

N 

r 

3 TO 10 

10 

8 

6 AT 11 

16 

6 

9 

9 

1 

8 AT J 

J + 7 

8 

K 

K 

1 


Code 


SRL 

«K' 

N^-I 

N 


mask** 

LACK 

1 H 


AHI 


N 

X 

SRL 

■'x' 

0(Ri) 

N 

®X- 

mask** 




3. 1.3.4 Bit Conversions. When necessary, conversions are 
performed in intrinsic or library functions. Some conversions 
do not require any generation of code. 

* Used only when Y is a Bit liberal. 

** The mask value is equal to 2 ^ - 1. 
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Operation Bit Length 


Alternate Code 


>L,lr ! 


BIT 

TO 

I 




No code necessary 



BIT 

TO 

^2 




LH 

’'x' 1 

SRA 


. 






SRA 

R,,, 16 ) 


BIT 

TO 

S,&2 

N 

X 

< 

16 

LH 

5, X 

LR 

5' ■'x 

, 






ACALL 

HTOE 







> 

16 

L 

5, X 

LR 

5, R 

' X 




X 



ACALL ITOE 


BIT 

TO 

CHAR 

Nx 

< 

16 

LH 

5, X 



. 





SRL 

5^ 16 

1 set 

up of bit 





N 

> 

16 

L 

5, X 

) argument 


LA 2, temp-string-area* 
LHI 6, N 


ACALL BTOC 


actual calling 
sequence 


BIT TO CHAR 


Same as BIT TO CHAR except call to 
BTOC is replaced as follows: 


<radix> 


routine 


BTOC 

OTOC 

KTOC 

XTOC 


* Temp-string-area contains converted string. 
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Operation 
BIT TO BIT 


Bit Length 


NX > Ny 
Ny 1 16 
N > 16 

y 


Code 


Alternate Code 


N. 


NHI 2 ^-1 


N R , mask* 


3, 1.3. 5 Bit Assignments . The following sequences assume that 
Rx has already had the required conversions performed as 
described in Sections 3. 1. 3. 3 or 3, 1. 3 . 4 . 


Operation 
Y = X 


Length of Bit String Y 

Ny < 16 STH 

Ny > 16 ST 


Code 








Y** 


If the right hand side of the assignment (X) is a BIT literal 
as described below, and Ny £ 16, then the following code is 
generated: 

Y = BIN' O'? N_. <16 ZH Y 


Y = BIN (16) ; 


Ny < 16 

Ny =. 16 


SHW 


3. 1.3. 6 Partitioned Bit Assignments . The following sequences 
assume that R« has already had the required conversions 
performed as described in Section 3. 1.3. 3 or 3. 1.3. 4. Defini- 
tions of I, Ny, and N 3 - are as described in Section 3. 1.3. 3. 


Operation 

Y , . .=X? 

subscript 


Length of Bit String Y 


Code 


N < 16 

y _ 


N 


* The value of the mask is 2 ^-1. 


** Note: If Nj 

the followii 


LH 

R , 
x/ 

X 

LH 

R f 

y 

Y 

SLL 

R^f 

H 

■t 

x' 

y 

XR 

V 

R 


y 

NHI 

^x' 

mask* 

XR 

R^/ 

R 


x' 

y 

STH 


Y 

or 32, 

then 


N 


K, F'2‘ 


N, 


*** Mask: The mask used in a bit store is computed as follows: 

N- N„-i 

(2 ^- 1 ) (2 ^ ) 

In other words, the mask is a sequence of N^ bits shifted 
left Nx“I bits. 
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i 


Operation Length of Bit String Y 


y . . .=X; 

subscript 

(Con't.) 


17 < N <32 
- y - 


Code 

L Ry, Y 

L R^, X 

SLL Ry, Ny-I 

XR Ry, R^ 

N R I mask* 

XR Ry, R^ 

ST Ry< If 

If the right hand side of the assignment (X) is a bit literal 
containing either BIN'O' or BIN(Ny)'l' then if Ny < 16 and Y is 
addressable in SRS format, then the following code is generated: 


"'ll 

TO 13 = 

Ny = 16 


ZB 

Y, B'lllOOO' 


TO 12 = BIN' 111': 

Ny = 16 

1 

1 

SB 

y, B'lllOOOO' 

If Ny > 16 then the following code 

! 

is generated: 


^13 

= BIN'O' ; 

TO 20 

CM 

II 

>1 


L 

R , =X'FFF00FFF’ 

X 





NST 

R / y 

X 

^17 

= BIN '111'; 

TO 20 

N = 32 
Y 


L 

R , =X'00007000' 

X 





OST 

R , Y 
x' 

3.1 

.3.7 Bit Tests. 





IF 

X 

N^ = 1 


TH 

X 




BZ 

<not true label> 

IF 

^10 

N = 16 

X 


TB 

X, B'lOOOOOO' 


or 

BZ 

<not true label > 







LH 

R , X 

X 





SRL 

R, 6 





NHI 

R, B'l' 





BZ 

<not true label > 

IF 

-.X 

Same as IF 

X except 

BZ changed to BNZ 


instruction 

• 

N^ 

(2 ^-1) 

N„- 
(2 ^ 

1 ' ■ , 


* 

The mask value is 

computed as: 

. 
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3.1.4 Character String Operations 


3. 1.4.1 Character String Operators . The only character string 
operator is the CAT ( | [) operating employing two character string 
operands denoted here as X and Y (of lengths Nx and Ny respec- 
tively) . Unless otherwise noted, X is assumed to be loaded into 


registers Rx. 

If Y is also in a register, it is represented 

as Ry . 



Operation 

Code 

X II Y 

LA 

P3, Y 


LA 

P2, X 


LA 

PI, temp-string-area 


ACALL 

CATV 
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3. 1.4. 2 Character String Comparisons . The full set of re- 
lational operators are allowed for character strings (see 
Section 3. 1.1. 4 for condition codes). Characters wxth 
different lengths are always unequal. No logical variables 
are created by comparisons. Instead, branching to the not- 
true-label" occurs with the "not true" condition. 


Operation 
X <0P> Y 


<0P> 

a 

= y 

“'ss 


^ ^ 1 
<=, 

C 


Code 

LA P3, Y 

LA P2, X 

ACALL CPRa 

BC COND, not-true-label 


3 1.4.3 Component Subscripting . Component subscripting for 
character strings consists ot setting the initial, Ni, an 
■Final Np index values of the subscripted components into 
reg?sieri's and 6 respectively, ana then branching to the CASP 
intrinsic. 


Operation 

subscripting 

^ “ ^subscript' 


Code 


Alternate Code 


LA 

LA 

LH 

LH 


P2, X 
PI , Y 

5, 

6, N^ 


LR 


^ _ (if only 1 

6,5 j 


component 


ACALL CASP 


3144 Character String Conversions. Where necessary, con- 
v^rkons are performed in intrinsic^^r library functions. 


Operation 
CHAR TO I 

CHAR TO I 2 


Code 

LA 2, char 

ACALL CTOH 

la 2 , char 

ACALL CTOI 
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Code 


Operation 


CHAR TO S LA 2 , char 

ACALL CTOE 

CHAR TO S2 LA 2 , char 

ACALL CTOD 


CHAR TO BIT LA 2 , char 

ACALL CTOB 


CHAR TO BIT 


@<radix> 


Same as 

CHAR TO BIT except 

BTOC is 

replaced as follows 

<radix> 

routine 

BIN 

CTOB 

OCT 

CTOO 

DEC 

CTOK 

HEX 

CTOX 


3.1. 4. 5 Character String Assignments . Either the receiver 
variable or the assigned variable in a character string 
assignment may be subscripted. The possible forms are shown 
below. When subscripting is used, a partitioning of a character 
string results. The initial element of this partitioned 
character string is signified by its index; Ni, Similarly 
the final element has the index Nf. Some examples of HAL/S 
subscript forms and the resulting Nf and Nf values are; 


Subscript Form 

Ni 

Nf 

1 TO 3 

1 

3 

5 AT 2 

2 

6 


Operation Code 


Y -X 

LA 

P2, X 


LA 

PI, Y 


ACALL 

CAS* 

Y =X 

subscript 

LA 

P2, X 


LA 

PI, Y 


LHI 

5, Nfy 


LHI 

® ' Nf y 


ACALL 

CPAS* 
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Operation 

Code 

Y=X 

subscript 

LA 

P2, X 


LA 

PI, Y 


LHI 

5 , 


LHI 

6, Nf^ 


ACALL 

CASP* 

Y srY 

subscript subscript 

LA 

P2, X 


LA 

PI, Y 


LHI 



LHI 

6' ''fx 


L 

7, H'N^y 

i 

ACALL 

CASP 


* For REMOTE data, CASK is called instead of CAS, CASRP for 
GASP , etc . 


3.1.5 Vector Matrix Operations 


3. 1.5.1 Vector-Matrix Operators . Vector Matrix operators 
usually operate on two arguments according to the conventions 
stated in Section 5.2. Since 3-vectors, and 3x3-matrices 
have special library routines, their code is listed in the 
column labeled "3-code”, while the code for any other vectors 
or matrices is listed in the "n-code" column. 


Operation 

Type 

Sc 

-code 


3-code 

VI + V2 

single 

LA 

P3, 

V2 

LA 

P3, V2 



LA 

P2, 

VI 

LA 

P2, VI 



LA 


temp»~area 

LA 

Pi, temp-area 



LHI 

5, 

n 

ACALL 

W2S3 



ACALL W2SN 
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Operation 

Type 

n- 

code 

3-code 


VI + V2 

double 

LA 

P3, V2 

LA 

P3, 

V2 



LA 

P2, VI 

LA 

P2, 

VI 



LA 

PI , temp-area 

LA 

PI, 

temp-area 



LHI 

5 , n 

ACALL 

W2D3 



ACALL 

W2DN 





VI - V2 Same as VI + V2 except that the routines branched 

to are W3SN (W3DN for double precision) and 
W3S3 {W3D3 for double precision) for size n 
and size 3 vectors respectively. 


-VI 

single 

LA 

P2, VI 

LA P2, VI 



LA 

PI, temp-area 

LA PI, temp-area 



LHI 

5 , n 

ACALL W7S3 



ACALL W7SN 


-VI 

double 

Same 

as -VI single. 

except that 



routines W7DN and 

W7D3 are called 



for 

size n and size 

3 respectively. 

VI }6 V2 

single 

LA 

P3, V2 

LA P3, V2 

VI; length n 
V2; length m 


LA 

P2, VI 

LA P2, VI 

result is nxm 

LA 

PI , temp-area 

LA PI, temp-sarea 

matrix 



LHI 5, n ACALL V06S3 

LHl 6, m* 

ACALL V06SN 


VI }6 V2 


VI * V2 


double 


single 


Same as for single precision, except 
that the routines branched to are V06DN 
and V06D3 for n-vectors and 3-vectors 
respectively. 


(illegal operation) LA 

LA 

LA 


P3, V2 
P2, VI 

PI, temp-area 


ACALL VX6S3 


VI * V2 


double Same as for single precision, except that 

VX6D3 is branched to, rather than VX6S3. 


* If both VI and V2 are the same size, then this instruction 
will be; LR 6,5. 
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/ 


X r 


Operation 
VI • V2 


VI • V2 


Ml 
or Ml 


+ M2 \ 
- M2 / 


Type 

single 


n-code 
LA P3, V2 

LA P2, VI 

LHI 5, n 
ACALL W6SN* 


3-code 

LA P3, V2 

LA P2, VI 

ACALL W6S3* 


double 


Same as for single precision, except 
that the routines branched to are 
W6DN and W6D3 for n-vectors and 
3_vectors respectively. 


VI M2 
VI : length n 
M2 : nxm 


Same code as that for adding or subtracting two 
vectors of length egual to the product of the 
row size and the column size of Ml and M2. 


single LA 


LA 

P3, M2 

LA 

P3, M2 

LA 

P2, VI 

LA 

P2, VI 

LA 

Pi, temp-area 

LA 

PI, temp-area 

LHI 

5 , n 

ACALL 

VM6S3 

LHI 

6, m** 



ACALL 

VM6SN 




The scalar result of the dot product is left in register PO' 
•* If M2 is of size nxn, then this instruction is: LR 6, 5. 
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Operation Type n-code 3-code 

VI }6 Ml double Same as for single precision, except 

that the routines branched to are 
VM6DN and VM6D3 for the general case 
and the size 3 case respectively. 

Ml VI Same as for VI )zJ Ml except that the routines 

Ml: n X m branched to are MV6SN (MV6DN for double precision) 
VI: length m and MV6S3 (MV6D3 for double precision) for the 
general case and the size 3 case respectively. 


VI 


I*, 

single 

LE 

to 

o 

LE 

0, S 

VI 


12*, 






VI 


C* 


LA 

P2, VI 

LA 

P2, VI 





LA 

Pi, temp-area 

LA 

PI , temp-area 





LHI 

5 , n 

ACALL 

W4S3 





ACALL 

W4SN 



VI 


S2 

double 

LED 

0, S2 

LED 

0, S2 





LA 

P2, VI 

LA 

P2, VI 





LA 

Pi , temp-area 

LA 

PI, temp-area 





LHI 

5 , n 

ACALL 

W4D3 





ACALL 

W4DN 




V1/I,V1/I2 Same as for VI I, etc., except that the routines 

V1/S,V1/S2 branched to are W5SN (WSDN for double precision) 

and W5S3 (W5D3 for double precision) for n-vectors 
and 3 -vectors respectively. 

I )6 V1,I2 }6 VI, Exactly the same as for VI ^ I, etc. 

S V1,S2 VI 

Ml ^ r,Ml }6 12, Same as for VI ]6 I, etc., except that 

Ml )d S,M1 S2 the length value specified in R5 is the 

product of the row size and the colximn 
size of Ml. 


* Note that in the case of single and double precision integers, 
they are first converted to scalar form whose value is in FO. 
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REPRODUCIBILITY OF THE 

original page IB mm 


Operation Type 

Ml/I, Ml/12, 
M1/S,M1/S2 


I JfS M1,I2 )zJ Ml, 
S yS MI,S2 )zJ Ml 


**i . 1 

Ml- Single 

(where i is either 
a literal or a 
constant integer) 


Ml**^ double 


n-code 3-code 

Same as for Vl/I, etc., except that 
the length value specified in R5 is 
the product of the row size and the 
column size of Ml. 

Exactly the same as for VI I , etc . , 
except that the length specified in 
R5 is equal to the product of the row 
size and the column size of Ml. 

LHI 6, i Same as for "n- 

code where n = 3. 
IjA P3, temp-storage-area 

LA P2, Ml 

LA PI, temp-storage-area 

LHI 5, n 

ACALL MI417SN 

Same as for single precision, except 
branches to the MM17DN . 


Ml 


**0 


Ml 


**0 


single 


double 


la P2, Ml 

LA PI, temp-storage-area 

LHI 5, n 
ACALL MM15SN 

Same as for single precision, except 
branches to MM15DN, 


* *rp 

Ml 

single 

LA 

P2, Ml 

LA 

P2, Ml 

Ml : m X n 


LA 

PI, temp-stor- 

LA 

PI, temp -stor- 




age-area 


age-area 



LA 

5, n 

ACALL 

MM11S3 



LA 

6, m 




ACALL MMllSN 
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Type 

double 


n~code 


3 -code 


Operation 

**rp 

Ml 


Same as for single precision, except 
that the routine branched to is either 
MMllDN or MM11D3 for n x n matrices 
and 3x3 matrices respectively. 


Ml M2 

single 

LA 

P3, M2 

LA 

P3, M2 

Ml: k X m 
M2; m X n 


LA 

P2, Ml 

LA 

P2, Ml 



LA 

PI, temp*;arQa 

LA 

Pi, temp-area 



LHI 

5, k 

ACALL 

MM6S3 



LHI 

6, m* 





LHI 

7, n* 




ACALL MM6SN 

Ml ]6 m 2 double Same as for single precision, except 

that the routines branched to are 
MM6DN and MM6D3 for the general case 
and the 3x3 case respectively. 


* Either of the instructions may be of the form; LR 6,5 if n-k, 
etc. 
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3. 1.5.2 Conditional Operators . The only comparison operators 
allowed for comparing vectors and matrices are = or - =. 

Since these comparisons are done on an element-by-element basis, 
the same routines that are used for size-n vectors are also used 
for size n x m matrices which are considered to be vectors of 
length n x m. No logical variables are created by comparisons. 
Instead, branching to the "not-true' label" occurs with the not 
true" condition. 


Operation 

Type 

n 

-code 

3-code 

VI <OP> V2 

single 

LA 

P3, V2 

LA 

P3, V2 



LA 

P2, VI 

LA 

to 

< 



LHI 

5 , n 

AG ALL 

W8S3 



ACALL 

W8SN 

BC 

COND , not 


label 

BC COND, not- true -lat»el 

Yi <0P> V2 double Same as for single precision, except 

that the routines branched to are W8DN 
and VV8D3 for n-vectors and 3-vectors 
respectively. 


Ml <0P> M2 single 

Ml, M2: mxn 


LA 

P3, M2 

LA 

P3, M2 

LA 

P2, Ml 

LA 

P2, Ml 

LHI 

5 , mxn 

LHI 

5, 9 

ACALL 

W8SN 

ACALL 

W8SN 

BC 

COND, not- 
true- label 

BC 

COND, not 
label 


Ml <0P> M2 double 


Same as for single precision, except 
that the routine branched to is W8DN. 
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3. 1.5. 3 Component Subscripting . Possible components of 
matrices include submatrices, vectors, column vectors, and 
single components. Possible components of vectors include sub' 
vectors and sigle components. The resultant type of component 
is determined by the subscripts used. Note that double 
precision operations are not shown - their code is identical 
except that: a) the called routines will be WIDN rather than 

WISN, etc; b) the index multiplier is 4 instead of 2. 

Register 1 , when used, contains skip values between elements 
in partitioned matrices (see Section 3. 1.1. 3). 


Operation* 


n-code 

3-code 

Y = Vx . ; 
1 

LE 

R , V -T 2 * i 

X X 

N.A. 


STE 

^x' ^ 


Y = Vx^; 

LH 

Rj, I 



LE 

R^, Vx(Rj) 

N.A. 


STE 

^ 


Vy^ = X; 

LH 

Rj, I 



LE 

R^, X 

N.A. 


STE 

R^, Vy(Rj) 


^^n AT I 

^^n AT I' 




LH 

Rj, I 

LH R^ , I 


AR 

Rl, R^ 

AR 


LA 

P2, Vx(Rj) 

la P2, Vx(Rj) 


LA 

PI, Vy(Rj) 

LA PI, Vy(R^) 


LHI 

5 , n 

ACALL W1 S3 


ACALL WISN 


* i indicates xnt¥ger literal, I indicates integer variable. 
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Operation * 

My = AT I, n AT J 

assumes My is an 
MATRIX 


N 






original 


n-code 

3-code 

J 



by n 



LH 

H 

H 

<same> 

MHI 

Rj,<column size 

of M^> 

AH 

Rj , J 


AR 



LA 

P2, M^(Rj) 


L 

7, F ' delta, 0’ 


LA 

Pi, M 

' y 


LHI 

5 , itl 


LHI 

6 , n 


ACALL 

MMISNP 


LH 

Rj, I 

LH 

AR 

H 

H 

AR Rj/ Rj 

LA 

P2, 

LA P2, 

LHI 

6, 0 

LHI 6, 0 

LHI 

7 , delta 

LHI 7, delta 

LA 

PX, M^(Rj) 

LA PI, MX(R 

LHI 

5, n 

ACALL VV1S3P 

ACALL 

WISNP 



^ — i indicates integer literal, I indicates integer variable, 


3-40 


INTERMETRICS INCORPORATED -701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 


3. 1/5. 4 Conversions. MATRIX/VECTOR conversions are done by 
considering matric^ as vectors, and assigning the required 
components to the receiver variable. More than 1 argument 
requires multiple calls to the vector assign routine (as 
shown in the second sequence below) . Use of double precision 
operands will cause branches to WlDN. Otherwise, the code 
is unchanged. 


Operation 


n-code 


VECTOR (M ) 

Produces vector of size 
equal to product of 
dimension of matrix; 
n X m. 

MATRIX (V^,Vy,V^) 


LA P2, M2 

LA PI, temp-area 

LHI 5 , nxm 
ACALL WISN 

LA P2, 

LA PI, temp-area 

LHI 5 , n^ 

ACALL WISH 
LA P2, Vy 

LA PI, temp-area+DELTAl 

LHI 5, Uy 
ACALL WISN 
LA P2, 

LA PI, temp-area+DEETA2 

LHI 5, 

ACALL WISN 


* This is an example using several vectors to illustrate the 
multiple calling of the WISN (or W1S3) routine. It 
applies to the VECTOR shaping function. 
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3. 1.5. 5 Assignments . Vectors and matrices may be assigned 
to other vectors and matrices of the same dimensions. In 
addition, they may have all elements set to zero by a state 
ment of the form; 

* 

M = 0; or V = 0; 

Note that the use of double precision operands will only 
change the routines branched to; i.e, WIDN and WODN 
respectively in the code sequences below. 


Operation n-code 3-code 


V 

X 

= V 

y 

LA 

P2, Vy 

LA 

P2, Vy 



LA 

> 
I— i 

LA 

PI, V 

X 



LHT 

5 , n 

ACALL 

VV1S3 



ACALL 

WISN* 



V 

X 

= 0 

SEDR 

0, 0 

SEDR 

o 

o 



LA 

PI, V 

X 

LA 

PI, 



LHI 

5 , n 

LHI 

5, 3 



ACALL 

WOSN** 

ACALL 

WOSN 


= M Same as for vectors, except that the 

^ content of register 5 is equal to the product 

and of the matrix dimensions. 



* For REMOTE data, VRISN is called in place of WISN. 

** For REMOTE data, VROSN is called in place of WOSN. 
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The temporary area used to store the result of the last 
HALMAT operation before an assignment can be eliminated 
if the vector-matrix statement is of a suitable "l>)rm" 
for optimization and one of four conditions holds • The 

statement may not have multiple receivers; the single receiver 
must be a consecutive partition or be nonpartitioned . The 
precision of the right-hand-side of the statement must match 
the precision of the receiver. The receiver cannot be a 
remote variable, and neither the receiver nor the operand (s) 
of the final HALMAT operation can be name variables, or 
the terminal of a subscripted structure. Also, variable 
subscripts on any variables do not allow optimization processing 
to continue. 

Statements that meet these basic requirements can then be 
checked for the occurrence of a necessary and sufficient 
condition for optimization. The result of the final operation 
before the assigiment will be stored directly in the receiver 
if at least one of the following conditions is true: 

1) a) The receiver is nonpartitioned and the last operation 
before the assignment HALMAT is a "Class 3” operation. 

Class 3 operations include matrix-scalar and vector-scalar 
multiplication and division, vector-matrix addition and 
subtraction, vector and matrix negation and the built-in 
function, UNIT. 

b) The last operation is a "Class 1" operation. The 
class contains only "matrix raised to 0th power". The 
result, the identity matrix, can be stored directly in 
any consecutive receiver. 

2) The operand (sX are in temporary work areas. Nonconsecutive 
partitions are moved to work areas when the operands are 
processed. The result of a previous operation is also in 
a work area. Operands in work areas are disjoint from 
the receiver. This is important for "class 2" operations 
that use the elements of the vector or matrix, vector-vector, 
and matrix-matrix arithmetic, and matrix transpose and 
exponentiation (also, the built-in functions, TRANSPOSE and 
INVERSE). This condition can also hold for class 1 and class 
3 operations. If the operation has two operands, both must 
be in work areas for this condition to be true. 
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OF THE 


OKIGINAL PAG- 


lo 


P^-,/ •f:i 




3 ) 


4) 


The operand (s) are nonidentical to \ . 

receiver-operand pair is nonxdentical xf the operand xs 
in a work area, or if neither variable xs a formal 
parameter and the variables have 

references, or if only one of the varxables xn a formal 
parameter and the NEST level of the 

variable is greater than or equal to the ^EST level 
of the parameterized variable (agaxn, symbol table 
reference cannot be the same) . 

EXAMPLEl: PROGRAM; 

declare MATRIX(3,3), S,T; 

PROC: PROCEDURE (A) ASSIGN (B); 

DECLARE MATRIX (3, 3), A,B,C; 

SUBPROC: PROCEDURE (X) ASSIGN (Y) ; 

DECLARE MATRIX(3,3), X,Y,P,Q; 

+ C 


^2 TO 3,* ^ ^2 TO 3,* 
B, 


^2 TO 3,* 

CLOSE SUBPROC; 

CALL SUBPROC (A) ASSIGN (C); 
CLOSE PROC; 

CALL PROC(S) ASSIGN (T); 
CLOSE EXAMPLEl; 


2 TO 3,*' 
^2 TO 3,* ^2 TO 3,*' 




where 

X&Y are parameters, C is not 
NEST_LEVEL(Y)=2, 

NEST_LEVEL(C)=1. 

Y can be C - cannot assign directly. 

P&Q not parameters - ok to assign dxrectly 

NEST_LEVEL(P)=2, 

NEST_LEVEL ( A) =1 . 

The operand(s) are disjoint with^the receiver. A 
operand pair can be dis^ornt xn two ways. If the paxr ^ 
nonidentical it is, by default, dxs^oxnt. If the recexver 

and the operand are consecutxvely partxtxoned, they 
disjoint if the partitions do not overlap xn any way. If 
thS ?iceiver and the operand have the same symbol table 
reference (are identical) then the two partxtxons can be 
disjoint in either "directxon" . For example, let A 
be a 4-by-4 matrix. Then, 


^1 TO 2,* "^3 TO 4,* ^ 

^3 TO 4,* "" ■^1 TO 2,* 


and 

are both disjoint pairs 


If the receiver and operand are possibly identical, then the 
pflfcaronly be disjoint if all of the operand partition 
comes after the receiver partxtxon. 
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EXAMPLE2 : PROGRAM; 

DECLARE MATRIX(6,3), A,D,E; 

PROC : PROCEDURE (B , C) ; 

DECLARE MATRIX (4, 3), B,C; 

\ TO 2,* ^ ^3 TO 4,« ^3 TO 4,*' 


Pairs A-B & A-C 
disjoint 


^3 TO 4,* 
CLOSE PROC; 
CALL PROCCA^ 

^3 TO 4,* 
CLOSE EXAMPLE2; 


TO 2,* ^3 TO 4, 

TO 6,*'®3 TO 6,*^ ' 

°3 TO 4,* TO 2,*' 


; Pair A-B not neces- 
sarily disjoint 

TO 2.* 

3 TO 4,*^ 

A,D,E are, by default, 
disjoint because they 


are nonidentical 


If the operation has two operands, both receiver-operand pairs 
must be disjoint for this condition to be true. The non- 
identical and disjoint checks are made at the same time, 
so this condition also holds if one pair is disjoint by 
disjoint partitioning and one pair is disjoint by being 
nonidentical. 
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3.1.6 Structure Operations 


3.1.6. 1 Structure Comparisons . Structure comparisons may 
only be = or *>=. The comparison is done by comparing corres- 
ponding terminal elements of the two structure operands in 
order of their natural sequence. Each terminal element is 
referenced by adding the displacement of the element to 
the address of the structure (see Section 3. 1.1. 3). No 
logical variables are created. Instead, branching to the 
"not-true-label" occurs with the "not-true" condition. 


Operation 
X <0P> Y 


/ 


for each 
terminal 


code 


LA 

2, X 


LA 

3, Y 


LA 

2 , terminal 

#1(X) 

LA 

3 , terminal 

#1(Y) 

LHI 

5 , width 


BAL 

4, CSTRUC 


BC 

COND, not-true-label 


<same for all terminals > 


BG 7, true-label 
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3, 1.6. 2 Structure Assignments . The assignment of both 
major and minor structures is done via the MSTRUC routine. 
The addresses of the structure nodes being accessed are 
loaded into registers 1 and 2. The width (in halfwords) 
of the structure node accessed is loaded into register 5. 


Operation Code 


Y = X 

LA 

P2, X 


LA 

PI, Y 


LHI 

5 , width 


ACALL 

MSTRUC* 


* For REMOTE data, MSTR is called instead of MSTRUC. 
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3.1.7 Indexing and Arrayed Statements 


3. 1.7.1 Linear Array Indexing . Linear array indexing is 
the use of subscripts, on an arrayed data type, to produce a 
one-dimensional resultant array. In the generated code, only 
one register - Ra - is needed to keep track of the index value. 
An initial entry to the array loop (see Section 3. 1.7. 4), R^ 
is initialized to a value of 1. On each pass through the loop, 
Ra is used to define a DELTA value to index the arrayed data 
(see Section 3. 1.1. 3). Following this, at the end of the loop 
Ra is incremented by 1, and is tested to determine if all of 
the data has been utilized, as described in Section 3. 1.7. 4. 

Rg is any available indexing register. Its contents may not 
be altered during the course of an arrayed statement. If the 
index in Ra must be shifted to access the word or doubleword 
data, it must be moved to another register to perform this 
shift. 


3. 1.7. 2 Non-Linear Array Indexing . Non-linear array indexing 
has more than one index which can change values to produce a 
multi -dimensional resultant array. The actual code generated, 
though, can only utilize one register - Ra - for indexing. Thus, 
temporary storage is needed to store all but the inner— most 
index. As with linear indexing, all index values (both in Ra 
and temporary storage) are initialized to 1. The DELTA value 
defining the index of each arrayed data item is then computed 
on the basis of the value of Ra and the index values stored 
in memory (see Section 3. 1.1. 3). Following this, each index 
value is tested against the size of the corresponding dimension 
(or the rosultant array) to determine if all of the data has 
been utilized and/or which indices are incremented for the 
next iteration. An example of this is given in Section 3.1.7. 4. 


3. 1.7. 3 Array Indexing . Arrays may be used in their entirety 
in HAL/S without explicit subscripting (for example assignment 
of two equally dimensioned arrays). However, the code generated 
is very similar to that for non-linear indexing, except that 
the indicies are tested against the size of the corresponding 
declared dimensions of the arrays, rather than against the 
size of the corresponding dimensions of the subscripted 
array. An example of this is shown in the next section. 
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3.1.7. 4 Arrayness and Loop Generation . This section has 
an example of each possible form of array loops, and how 
indexing is achieved within them. In general, an array 
loop consists of the following sections: 

a) initialization of index values; 

b) computation of address of arxay element from 
index value (see Section 3. 1.1, 3); 

c) actual operation to be performed on the array 
element(s) (i.e. assignment, comparison, etc.); 

d) incrementing and testing index values. 


It should be noted that non-linear and array indexing 
produce multiple loops and indices. Since only a single 
register is available for indexing, temporary storage 
of index values for outer loops is employed. 


Operation 

Linear Indexing: 
[X] = [Y]^ 2 


Ty pe 

[X] : ARRAY (3) SCALAR 

[Y] : ARRAY (5) SCALAR 

DOUBLE 


Code 


7, =H'l,2j (D 




loop: LED 2, Y+4(7) 

STE 2 , X (7 ) ^ 

BIX 7 , loop |: ^ 


Notes on above example: 

0 initialize 
(2) assignment 

increment and test index 
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Operation 

Non-Linear Indexing; 


Code 




[I] = [VJ 


1,2 TO 3,*: 2 


[ II ; ARRAY (2,4) INTEGER 
[V] ; ARRAY (2,3,4) VECTOR 


outer-loop i 


inner-loop : 


Notes on the above example; 

initialization and storage of first 
index value 

© initialization of second index value 
(£) indexing of [V] 

Q indexing of [I] 

© assignment of scalar value to an integer 
value 

© incrementing and testing second index value 
(^ incrementing and testing first index value 



L 

BIX 


inner- 
loop 

7 , tempi 

7, outer- 
loop 
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Type 


Code 


Operation 
Array Indexing; 


* r * 1 

[M] = [N] 


* *, L 

array (2, 3) outer-loop: ST 
matrix (2,4) 


inner-loop; 


Notes on above example; 


initialization and storage of 
first index value 

Q) initialization of second index value 
0 indexing of INl 
0 indexing of [M] 

(D matrix to matrix assignment 

0 incrementing and testing second index value 
0 incrementing and testing first index value 
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KEPR0T3UCIBILITY OF TI^’ . 

ORIGB^AL PAGE IS 


3.1.8 PROCEDURE/FUNCTION Calls 

The PROCEDURE/FUNCTION calling process consists of 
two parts: 

a) argument set up; and 

b) the actual branch to the subroutine. 

Argument set up uses registers 5-7 as needed for 
passing integers or bit strings, and/or pointers to 
vectors, matrices, character strings, arrays or structures. 
Floating point registers 0, 2, and 4 are similarly used 
to pass scalar arguments. Once all of these registers 
are utilized, all remaining arguments are placed in a run 
time stack for the procedure or function. 

The actual code generated sets up the arguments 
in the order that they appear in the HAL/S PROCEDURE or 
FUNCTION block definition statement. For example, if 
the function is: 

F : FUNCTION (integer_l , scalar_l , scalar_2 , vector_l , integer_2 ) ; 
then the registers are loaded in the order: 

register 7 

register 6 

register F2 

register FO 

register 5 

Once all arguments are set up, the actual branch is a 
BAL or SCAL instruction to the CSECT defined for the procedure 
or function. 

A leaf procedure/function is one which has no stack 
requirements (i.e. no parameters , nO stack temporaries, no 
local addressable data, no ON ERROR statements, and no intrinsic 
library calls). Such procedures may be called via BAL R4, <routine 
name>. These routines are exited using BCR 7, R4. 
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using LH or L 

using LA to load the pointer to 
vector_l 
using LE or LED 

using LE or LED depending on the 
precision of scalar_l 
using LH or L depending on the 
precision of integer_l 


Operation 
Argument Setup 


Args 

£3 non-scalar 
and <3 scalar 


Code 


Actual Call 


Argument Setup >3 non-scalar 

and/or >3 scalar 


Actual Call 


LH 

7, arg3 

LH 

6 , arg2 

LH 

5 , argl 

LE 

4, scalar-arg3 

LE 

2 , scalar-arg2 

LE 

0 , scalar-argl 

ACALL 

c sect- name 

LH 

R, argn 

STH 

R, Stack 

LH 

R, arg4 

STH 

R, stack 

LE 

FR, scalar-argn 

STE 

FR, stack 

LE 

FR, scalar-arg4 

STE 

FR, stack 

LH 

5 , argl 

LE 

2 , scalar-arg2 

ACALL 

csect-name 


Alternate Code 

L 1 , arg3 or LA 7, arg3 

L 6, arg2 or LA 6, arg2 

L 5, argl or LA 5, argl 

LED 4 , scalar-arg3 

LED 2 , scalar-arg2 

LED 0 , scalar-argl 


non-scalar stores 
into stack 


scalar stores into 
stack 


> © 


Notes on the above : 


Cl' ^(2 




Any additional arguments are generally loaded into 
any unused register and stored. The actual load op 
codes may be: L, LH, LA, LE, or LED, depending on 
the type of argument. Similarly, the stores op 
codes may be ST, STH, STE, or STED. If the argu- 
ment already exists in a register, then the code 
generated will be only a store from that register 
into the stack. 

Loading of the first 3 non-scalar, and the first 3 
scalar arguments. This is identical to the code 
shown in the first example above. 
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3.1.9 Block Definition 


3. 1.9.1 PROGRAM and TASK Definition . 

Operation ^2^ 

PROGRAM or TASK definition block-name: 


LA 

0, 

stack-start* 

LA 

1, 

program-data-csect 

STH 

1, 

5(0) 

lAL 

0, 

stack-size 

LA 

3, 

local-data-area (1) 

STH 

3, 

9(0) 


* Omitted if SDL option is turned on. 

•3 1 Q 9 PpnrF.niTRE and FUNCTION Definition. Both PROCEDURE 
and • FUNCTION aef lLt.ons are s.mxiai l J — QGEAM and TASK 
definitions. However, floating point J^ore instructions are 
needed to save any scalar arguments passed via registers. 

.u 3 rod r Alternate Code 


Operation 

PROCEDURE or 

FUNCTION 

definition 


Code 

block-name : 

For COMSUBS 
only 


optional 


I LA 1 , Program-data-csect 
STH 1, 5(0) 
lAL 0, stack-size 
LA 3, Local-data-area (1) 


9(0) 

stack 

STED 

0, 

stack 

stack 

STED 

2, 

stack 

stack 

STED 

4f 

stack 
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3.1.10 Flow of Control Statements 


T 1 in 1 IF. . .THEN. . .ELSE. The code shown below is for the 
m^sl qener S form of th e TF . . .THEN. . .ELSE statement. It is_ 
assumed that the condition code from the conditional expres 
sion has been generated (see previous subsections on condi- 
tional operations) . 


Operation 

IF <cond exp> THEN <...> ELSE <...> 


Code 

BC cond, else-label 


then-label; | executable code for 
THEN clause 


BC 7 , next-statement 

else-label: /executable code for 
ELSE clause 


next- statement ; 


IF <cond exp> THEN <...> 


BC cond, next- statement 

executable code for 
THEN clause 


next-statement: 
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I 


THE 


3.1.10.2 DO FOR... Loops . The DO FOR loop has two forms: the 

iterative, and the discrete. They may also cause termination 
of the loop by use of the clause UNTIL < > , or WHILE < > . The 
use of these clauses is shown for the case of the iterative 
DO FOR forms where the additional code needed has been labeled 
"UNTIL code" and "WHILE code". This same additional code is 
generated for the discrete DO FOR and is placed immediately 
before the executable code within the DO group (the same 
process as is illustrated with the iterative DO FOR) . Note 
that the code only shows the use of a single precision integer 
index; double precision integers, and single or double precision 
scalars follow the same algorithm with the exception that the 
corresponding full word, or floating point instructions are 
used when dealing with the index variable. 


EEPRODUCBMTy OF 

OKIGMAR ® 


Operation 


Code 


DO FOR I = a TO b BY c;* LHI 7, 

loop-begin: BC 7, 

' ) 

repeat**: LH 7, 

AHI 7 , 
test-label: STH 7, 
CHI 7, 


a 


test- label 

executable code within 
DO group 

j** * 

c 

I 

b 


BC 

exit-label : 


6 , loop-begin 

J code for statement fol- 
lowing DO group 


* Assumes a, b, and c are literal values. 

** This is referenced by the REPEAT statement (see Section 
2.3.10.5) . 

*** This instruction may be omitted if the REPEAT label is 

not actually used, and the loop index I is already in the 
designated register. 
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Code 


Operation 

DO FOR I = a TO b BY c 

UNTIL <cond exp>; 


END; 


loop-begin; 


fir St- statement ; 


repeat** : 
test-label : 


exit-label ; 


ZH 

LHI 

BC 

TS 

BC 


temp-area 

1 , a 

1 , test-label 

temp-area 

4, first-state 
ment* 

, cond for exp. 


UNTIL code 


> UNTIL code 


BC cond, exit-label 

. 1 executable code 
; I within DO group 


LH 7, I 

AHI 7 , c 

STH 7, I 

CHI 7, b 

BC 6 , loop-begin 

: , code for statement 

• following DO group 


* This is done to avoid testing the <Cond exp> until after 
executing through the loop at least once. 

** This is referenced by the REPEAT statement (see Section 
3.1.10.5). 
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Code 


Operation 


DO FOR I = a TO b by C WHILE <cond exp> 


END; 


loop-begin: 


test-label: STH 


exit-label : 


7, a 

1, test-label 

I code for cond 1 WHILE 
exp I code 

cond, exit-label ■' 

1 executable code within 
DO group 

7, I 

7, c 

7, I 

7, b 

6, loop-begin 

I code for statement fol- 
lowing DO group 


DO FOR I = a^^, 3.2t 


END; 


label-1 ; 


label- 2: 


7, ai 

4, test-label 
7, a2 

4, test-label 


label-n: LHI 7, a 


test- label : 


repeat* : 


exit-label; 


4, exit- label 
4 , temp -area 
7, I 

( executable code within 
DO group 

4 , temp-area 

7,4 

1 code for statement fol- 
I lowing DO group 


* This is referenced by the REPEAT statement (see Section 
3.1.10.5) . 
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Code 


Operation 

DO FOR I = II TO 12 BY 13 
END; 

(II, 12, 13: variables) 

loop-begin: 

repeat* : 
test-label: 

positive-test: 
exit-label : 


LH 

5, 

12 

STH 

5, 

temp-test 

LH 

6, 

13 

STH 

6, 

temp-incr 

LH 

7, 

11 

BG 

7, 

test-label 

• 

• 

• 

• 

• 

executable code within 
DO group 

LH 

7, 

I 

AH 

STH 

LH 

7, 

7, 

5, 

temp-incr 

I 

temp-incr 

LA 

5, 

loop-begin 

BC 

5, 

positive-test** 

CH 

7, 

temp- test 

BCR 

5, 

5 

BC 

7, 

exit-label 

CH 

7, 

temp-test 

BCR 

• 

• 

6,5 

code for statement fol 
lowing DO group 


* Repeat label (see Section 3.1.10.5) 

** This branch is determined by the condition code set by the 
previous LH 5, temp-incr instruction. 
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■* 9 ^ 


3.1.10.3 DO WHILE/UNTIL. Both of these forms of DO groups 
are essentially the same except that the DO UNTIL does not 
test its conditional expression until it has finished executing 
the code once. In both cases, the condition is tested as 
detailed in proceeding subsections. 

Operation 

DO WHILE <cond exp> repeat: . ^ code for conditional 

* 1 expression 


BC 


BC 

exit-label : 


cond, exit-label 

I code for statements 
within DO group 

7 , repeat 

’ ) code for statement 

* ( following DO group 



DO UNTIL <cond exp> BC 7 , first-statement 

repeat: . | code for conditional 

j expression 

BC cond, exit-label 

code for statements 
within DO group 

BC 7, repeat 

code for statement 
following DO group 
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3.1.10.4 DO CASE. The DO CASE statement is used to select 
one- of a collection of statements for processing. 


Operation 


Code 


DO CASE I; 
<statement 
< statement 

1> 

2> 

LH 

BC 

^C' 

6, 

I 

else-case-label 

• 

• 


LA 

2, 

case-vector 

< statement 
END; 

n> 

CH 


0(2) 



BC 

1, 

else-case-label 



LH 

4, 

0(R^. 2) 



BCR 

7 , 

4 


else-case-label : 


© 


Q 

O 


<else statement code> 
BC 7, exit-case-label 
< statement 1> 

BC 7, exit-case-label 
< statement 2> 

BC 7 , exit-case-label 


exit-case-label i 
case-vector 


< statement n> 


Data 


DC 

H 'n' 


DC 

Y (statement 

1) 

DC 

y (statement 

2) 

DC 

Y (statement 

n) 


O bounds checks on case number- Omitted if ELSE case not 
specified. 
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KKPKODUCIBILITf 0? THE 
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Tjr.n-C'afp PVTT All of these statements take 

o. t.e 

"repeat” and "exit-label" wxthxn a DO group. 


Operation 
GO TO label 


repeat 

REPEAT label 


Code 

BC 7, label 
BC 7 , repeat 


"repeat" is the loca- 
tion of the code which 
determines whether DO 
group iteration is 
finished or not. 


EXIT 

EXIT label 


BC 


7, 


exit- label 


"ex it- label" is the 
location of the code 
immediately following 
the end of the DO 


group . 


? 1 10 6 RETURN. The RETURN statement will branch back from 
the' code ff^inction to the code immediately following the 
function's invocation. 


Operation 

Code 


Procedures & Functions 

RETURN 

SRET 7 , 0 

normal 


BCR 7 , 4 

leaf procedure or 
function 


Programs & Tasks 

return 


SVC =H'2l’ 
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X 


3.1.10.7 ON ERROR/OFF ERROR/SEND ERROR. 


Operation 


ON ERROR <Stmt> 
n:m 


Code 


LA 4, <stmt> 

STH 4, error table entry 1. 

LH I 4 , < action > * 

STH 4, error table entry 0 

BC 1 , next- statement 

<stmt>; <code for stmt> 


next- statement ; 


\ I code for next statement 


SIGNAL 

ON ERROR^, ^SYSTEM [AND SET < event >] 

RESET 


LA 4 , <event> 

STH 4 , error table entry 1 
LHI 4 , <action> 

STH 4 , error table entry 0 


SIGNAL 

ON ERROR^. ^IGNORE [AND SET <event>] 


SEND ERROR 


RESET 


LA 4 , <event> 

STH 4 , error table entry 1 
LHI 4 , <action>* 

STH 4, error table entry 0 

SVC = X'0014nnmm' 


only if event 
action phrase 
present 


only if event 
action phrase 
present 


OFF ERROR^.^ 
n :m 


error table entry 0 


* <action> contains action code, error code, and error qroup 
as defined in HAL/FCOS ICD. group 
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3.1.11 Built-In Functions 


3.1.11.1 Inline Built-in Functions . The following built- 
in functions emit the inline code shown in the following 
sequences. In all cases, it is assumed that contains 
the argument except when a specific load instruction is 
shown. The results will always be in register Ry. 

Operation Type Code 

ABS(arg) scalar, single LE Ry, arg 

LECR R , R, 
y Y 
BC 2, *~1 


scalar, double LED R^, arg 

LECR R , R 

y y 

BC 2, *-l 


integer, single LH R^, arg 

LACR R , R 

y y 

BC 2, *-l 


integer, double L R^, arg 

LACR R , R 

y y 

BC 2, *-l 


LENGTH (char) 

character string 

LH 


char 



NHI 

y 

255 

SIGN (arg) 

scalar, single 

LE 

R , 

X 

arg 



LFLI 


1 



LER 

R f 
X 

R 

X 



BC 

5, 

continue 



LECR 

R , 
y 

R 

Y 


continue : 
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Type 


Code 




scalar, double LED arg 

LED R , D' 4110000000000000' 

LEDR \ 

BC 5, continue 
LECR Ry, Ry 
continue: * 


integer, single LH R^, arg 

LFXI Ry» 1 

LR R^, R^ 

BC 5, continue 
LACR Ry, Ry 
continue ; • 


integer, double L R^, arg 

L Ry, =F'l' 

LR R^, R^ 

3C 5, continue 

LACR Ry, Ry 

continue; 

SIGNUM(arg) scalar, single LE R^, arg 

LFLI Ry, 1 

LER R^, R^ 

BC 1 , continue 

BC 4 , equal 

LECR Ry, Ry 

BC 7 , continue 

equal: SER Ry, Ry 

continue : . 
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l 




Code 


Operation 


integer, single 


equal : 
continue : 


LH 

LFXI 

LR 

BC 

BC 


BC 

SR 


R 


arg 


X' 

R , 1 

y 

R , R 

X X 

1 , continue 
4 , equal 


LACK R , R 

y y 

7 , continue 


R , R 

y y 


integer, double 


L 
L 

LR 

BC 

BC 

LACR 

BC 

equal : SR 
continue : 


arg 

R , =F'l' 

y' 

R , R 

X X 

1 , continue 
4 , equal 
R , R 

y y 

7 , continue 
R , R 

y y 


TO 


- or- 


SUBBIT 


m-n+ lAT m 


(arg) 


integer, single, 
or bits of length 
<16 

integer double, 
or bits of length 
> 16, or scalar 
single 


SRL 

NHI 

SRL 

N 


R , 16-n 

y 

R , mask* 

y 


R , 32-n 

y 

R , F'mask'* 

y 


* The mask value is; 2^^ 
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Operation 

Type 

SHL (arg, n) 

integer 

SHR (arg, n) 

integer 

XOR(X,Y) 

Bit, n£l6 


Bit, n>16 

MIDVAL(X,y,Z) 

scalar 


INTERMETRICS INCORPORATED • 701 CONCORD AVENUE 


Code 


SLL 

^arg 

f n 

SRA 

^arg 

f n 

LH 

y 

Y 

XR 



X 


Y 

or XR 

R , 

X 

■'y 

LE 

FO, 

X 

LE 

FI, 

Y 

MVS 

FO, 

Z 
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3.1.11.2 Out of Line Functions . Out of line functions require 
branches to the run time library. 


The registers needed for parameter passing, and the name of 
the library routine branched to, are specified in the tables 
of Section 5. Examples are given for representative arg\iment 
types . 


Operation 

Type of X 

Code 

COS(X) 

scalar, single 

LE 

0, X 



ACALL 

COS 

SORT (X) 

scalar, double 

LED 

0, X 



ACALL 

DSQRT 

ABVAL (X) 

vector (3) , double 

LA 

2, X 



ACALL 

W9D3 

TRANSPOSE (X) 

matrix (m,n), double 

LA 

P2, X 



LA 

PI, temp-area 



LA 

5, m 



LA 

6 , n 



ACALL 

MMllDN 


matrix (3,3) , single 

LA 

P2, X 



LA 

Pi , temp-area 



ACALL 

MM11S3 

UNIT (X) 

vector (3), single 

LA 

P2, X 



LA 

PI, temp-area 



ACALL 

W10S3 

RANDOMG 


ACALL 

RANDG 

TRIM(X) 

character 

LA 

P2, X 



LA 

PI , temp-area 



ACALL 

CTRIMV 

MAX(X) 

array (n) 

LA 

2, X 



LHI 

5 , n 



ACALL 

EMAX 
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3.1.11.3 Shaping Functions . Shaping functions are explicit 
invocations of type conversion. The generated code for shaping 
functions has been described in previous subsections where 
conversions have been described (see Sections 3. 1.2. 3, 3. 1.3. 4, 
3. 1.4. 4, and 3. 1.5.4) . 


In addition, when conversion functions are used in a true 
"shaping" sense, (e.g. MATRIX (< integer array>) ) , a subroutine 
is used to move contiguous elements, with possible conversion, 
to a result location of the desired shape. 

Example ; 

MATRIX (A) where A is a 9 element integer array 


LA P2, A^ 

LA PI, <result loc> 

LHI 6, X'0002' flags* 

LHI 5, 9 size 

ACALL QSHAPQ 


* Flags: 1®"*^ 8 bits indicate input data type. 

2 ^ 1 ^ 8 bits indicate output data type. 

Values : 0 = H 

1 = 1 

2 = E 

3 = D 

3-69 

INTERMETRICS iNCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 


3.1.12 


Real Time Statements 

All REAL TIME statements are implemented 

All instruction which has as its address 

t ITZrd a^arLeter 11^ The 

?r?^ruil."caU tS: ?e!;”*aer of the parameter list 
varies with the service being requested. 

The specific forms of the SVC parameter lists are 
those described in the HAL/FCOS ICD document. 

Por real time statements in non-REENTRANT blocks. 

For lists are in the block's data area. Any 

the SVC parameter lis .oanameter lists are implemented 

invariant portions of parameter 11^^^^^ 

^?e'?-Umi!depende;t are created by erecution of in-line 
code preoeeding the SVC instruction. 

For real time statements in 

SVC parameter lists .‘^^”^g‘^|v 2 ^ingtruotion. 
executable code preceeding the SVC instruction. 

3.1.12.1 WAIT Statement . „^^SSof tS 

registers 0, 1 to ^ UNTIL^option is specified, the 

specified in .“/Mission elansed time. Any other 

time value IS expressed as jiissio^^^^^^^^ 

Iff till vSifis not specified in the WAIT statement, then 
the registers will hot be affected. 


Operation 
WAIT n 

WAIT X 


?I£® 

n; literal 
X; scalar double 


LED 


Code 

0, D'floating point form 
of n' 


WAIT FOR DEPENDENT 

WAIT FOR X X: event value 

WAIT UNTIL X X: scalar double 


SVC parameter-list 

LED 0, X 

SVC parameter-list 
SVC parameter-list 
SVC parameter-list 

LED 0 , X 

SVC parameter-list 
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3.1.12.2 CA NCEL, TERI4INATE Statements . 


Operation 

CANCEL 

CANCEL<task id> 

terminate 

TERMINATE<task id> 


Code 


SVC parameter- list 


3.1.12.3 SIGNAL, SET, RESET Statements. 


Operation 

SIGNAL<event var> 
SET< event var> 
RESET<event var> 


Type 

latched or unlatched 

latched 

latched 


Code 

SVC parameter- list 


3.1.12.4 UPDATE PRIORITY Statement. 


Operation 

UPDATE PRIORITY TO i 
UPDATE PRIORITY<taskid> TO i 


i ; integer 


Code 

SVC parameter- list 
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J'J ' :■ 

FiUlR 


li'j 


sFi 


3.1.12.5 SCHEDULE Statement . In the following code generation 
seguenc :3, a schematic representation of possible SCHEDULE 
statement forms has been used. The symbol [ ] means that one 
of the contained elements may appear in the statement form with- 
out affecting the generated code. The symbol { } means that 
one of the contained elements must be included in the statement 
form - but which one does not affect the code generated. 

In general, the code differs only when time values are specified 
in the SCHEDULE statement. This requires that the time values 
be specified in double precision format in certain registers 
as shown below. 

Operation 

SCHEDULE<label> [ON<event exp>J PRIORITY (I) [DEPENDENT] [uNTIL<event exp> 

SVC parameter-list 


SCHEDULE<label>{Q^ ^}PRIORITY(I) [DEPENDENT] [yNTlKeveJIt Sp^ 

LED 0, D'X' 

SVC parameter -list 

SCHEDULE<label> [ON<event exp>] PRIORITY (I) [DEPENDENT] , REPEAT{g^gj^Y 

LED 2, D’X' 

SVC parameter-list 

SCHEDULE<label> [ON<event exp>] PRIORITY (I) [DEPENDENT] UNTIL X 

LED 4, D'X' 

SVC parameter-list 

SCHEDULE<label>{Q^ x}PRIORITY (I) [DEPENDENT], REPEAT{^g|Y Y^ 

|.WHILE<eVent exp> , 

^UNTIL<event exp>’' 

LED 0, D'X' 

LED 2, D'Y* 
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Operation 


Code 


SCHEDULE<label>{^* j[}PRIORITY(l) [DEPENDENT] UNTIL Y 


LED 

0, D'X' 

LED 

4, D'Y' 

SVC 

parameter-list 

SCHEDULE<label> [ON<event exp>] PRIORITY (I) [DEPENDENT] , REPEAT 

rZVFTER y 

^ EVERY 


LED 

2 , D'X' 

LED 

4, D'Y' 

SVC 

parameter-list 

SCHEDULE<label>{Q^ y}PRIORITY (I) [DEPENDENT] , 

/AFTER Y 
REPEAT {g^gj^y y} 

UNTIL Z 


LED 

0, D'X' 

LED 

2 , D'Y' 

LED 

4, D'Z' 

SVC 

parameter-list 
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3.1.13 I/O Statements 


3.1.13.1 Initiation . Initiation of either READ, READALL, or 
WRITE statements consists of a branch to the lOINIT library 
routine. Register 1 contains the I/O channel n\imber, and register 
0 indicates the type of I/O to be initiated. 

Operation Type Code 

READ(n)... LHI 6, n 

LHI 5, 0 

ACALL lOINIT 


READALL (n) 


LHI 6 , n 

LHI 5 , 1 

ACALL lOINIT 


WRITE (n) 


LHI 6 , n 

LHI 5 , 3 

ACALL lOINIT 
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3.1.13.2 Input. In all cases, the code sequences below follow 
the I/O initiation process described in the previous subsection. 

It is assumed that any conversions have been done previous to 
the code sequences shown; the resultant type determines which 
type of code sequence is generated. Note that vector and matrix 
partitioning require that the first element of the partition be 
knov 7 n; additionally, matrices require a DELTA value to be known 
to skip over those elements (in the "natural sequence") which are 
not part of the resulting partitioned matrix (see Section 2. 1.1. 3). 

Operation Typs 

READ( ).. ., I, ... integer, single . ) ... 

. \ initiation 

LA 2,1 
AC ALL HIN 


READ ( ) , 


S, 111 


integer, double 


I initation 


LA 2,1 
AC ALL I IN. 


scalar, single 


initiation 


LA 2 , S 
ACALL EIN 


scalar, double 



initiation 


LA 2 , S 
ACALL DIN 


READ ( ) 


V, ... vector (n) ; single 


initiation 


LA 2, V 
XR 7, 7 
LHI 5 , 1 
LHI 6 , n 
ACALL MM2 OSNP 
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Operation 

l^EAD ( ) . . . , V , . . . 


RCAD ( )•••/ M/ ••• 


READ ( ).../ Mf 


READ ( ) . . . , C , . , 

or R]3ADALL ( ) . . . , C , 4 

READ ()..., 

TO n' ' ' ' 

or READALL ( ) . . . , 

TO n' ' ■ * 

INTERMETRICS INCORPORATED 


Type 


Code 


partitioned vector 
of length n whose 
first element is 
located at 'V+ 
displacement ' 



. i initiation 

LA 

• ) 

2, V+displacement 

XR 

7, 7 

LHI 

5, 1 

LHI 

6 , n 

ACALL 

MM20SNP 


vector (n); double same except branches to MM20DNP 
(partitioned or 
not partitioned) 


matrix (m,n); single 


initiation 


LA 2, M 
XR 7,7 
LHI 5 , m 

LHI 6 , n 
AC ALL MM20SNP 


partitioned matrix 
whose resultant 
size is mxn, first 
element is M4-dis- 
placement. 


initiation 

LA 2, M+displacement 
LHI 7, DELTA 
LHI 5, m 

LHI 6 , n 
AC ALL MM20SNP 



matrix (m,n)? double Same except branches to MM20DNP 
(partitioned or 
not partitioned) 

character string . ] 

. > initiation 

■i 

LA .2, C 
ACALL CIN 


partitioned 

character string • > initiation 

LA 2 , C 
LHI 5 , m 

LHI 6 , n 
ACALL CINP 
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(y 


Operation 

READ( )..., 0^,..., 
or READALL ( ) ... ^ . 


single partitioned 
character string 


Code 


initiation 


READ( ) , . . , B, . 


Arrayed Input 


bit string (of length 
n)- 


LA 

2, C 

LHI 

5,n 

LR 

6, 5 

ACALL 

CINP 

LHI 

6,, n 

ACALL 

BIN* 

ST 

6, B 


initiation 


The actual code generated depends on the 
type of array. Thus, the code will consist 
of an array loop (see vSection 2. 1.7. 3) which 
contains the proper code for inputting of each 
array element using the code shown above 
(corresponding to the array element type).. 


3.1.13.3 Output . In all cases, the code sequences below follow 
the I/O inltiatioii processes described in Section 2.1.12.1. It 
is assumed that any conversions have been done previous to the 
code sequences shown; the, resdltant type determines which type 
of code sequence is generated. Note that vector and matrix 
partitioning require that the first element of the partition be 
known; additionally, matrices require a "delta" value be known to 
skip over those elements (in the "natural sequence") which are not 
part of the resulting partitioned matrix. 


Operation 

miTE( 


Tjpe 

integer, single 


Code 


initiation 


LH 5, I 
ACALL HOUT 


integer, double 


initiation 


b 5,1 
AC ALL I OUT 


* BIN returns the bit string input in register R6^ 
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ollGWAL P&C-1‘ 


Operation 
WRITE ( ) . * . / S , 


WRITE 


WRITE ( ) 


Type 

scalar, single 


scalar, double 


( ) . . . f V, . . • vector (n) ; single 


, V, . • ♦ partitioned vector of 
length n whose first 
element is located 
at 'V-i-displacement V 


vector (n) ; double 
(partitioned or 
non-par titioned) 

Wl^ITE( ) . . . V Hf ,:-v. matrix (m,n) ; single 


Code 


LE 0, S 
acall eout 

LED 0 , S 
ACALL DOUT 


initiation 


initiation 


LA 2, V 
XR 7,7 
LHI 5 , 1 
LHI 6 , n 
ACALL MM2 ISNP 


. \ initiation 

LA 2 , ^V+displaceraent 
XR 7 , 7 
LHI 5,1 
LHI 6 , n 
ACALL MM2 ISNP 

Same except branches to 
MM21DNP . 


initiation 


WRITE ( ) . . . , M , . . . 


LA 

2, 

M 

XR 

7, 

7 

LHI 

5, 

m 

LHI 

6 , 

n 


ACALL MM2 ISNP 


partitioned matrix 
of resultant size 
mxn whose first element 
is M+diSplacement 
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LA 

LHI 

LHI 

LHI 




initiation 


2 / M+d i sp 1 ac emen t 
7 , delta 

5 , m 

6 , n 


ACALL MM2 ISNP 
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Operation 


Code 


WRITE ( ) . . . / G, , 


WRITE C )*••! 


WRITE ( ) , . . , Cjj , 


WRITE ( 0/ 


Arrayed Outpu-t 


intermetrics incof^porated 


TO n 


matrix (ni/n) ) double 
(partitioned or not 
partitioned) 

character string 


Code 

same except branches to 
MM21DNP 


partitioned character 
string 


:! 


LA 

ACALL 


COUT 




initiation 


initiation 


LA 2 , C 
LHI 5, ra 
LHI 6, n 
ACALL COUTP 


single partitioned 
character string 


initiation 


LA 2, C 
LKI 5, m 
LR 6, 5 
ACALL COUTP 


bit String (of length 
n) 


initiation 


L 5, B 
LHI S, n 
ACALL BOUT 


The actual code generated depends on the type 
of array. Thus, the code will consist of an array 
loop (see Section 2.1,7. 3) to cause iterative 
outputting of each array element using the code 
shovm above (corresponding to the array element 
type) . 
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3.1, 14 NAjMl Operations 

3.1.14.1 NAME Comparisons . NAME comparisons may only be 
» or ->=. 

Code 

LH R^, X 

LH Ry, Y 

CR R^, R^ 

BC CONPr not* true- label 

BC 7 , true-label 

LA X 

LH Ry/ Y 

CR R^, Ry 

BC COND, not-true-label 

BC 7, true-label 

3.1.14.2 NAME Assignments . The variable Y in the following 
examples may only be a NAME variable . The variable X may 

be either an actual or NAME variable having declared properties 
Identical to Y. 


NAME(Y) = NAME(X) ; 

where X is declared variable 


NAME(Y) NAME(X) ; 

where X is NAME variable 


LA ^ 

STH R , Y 

LH R , X 

X ■ 

STH R , Y 

X 




3.1.15 %MACROS 

The following %MACROS are pqognized by the 
HAL/S-FC compiler and produce the indicated code. 


3.1.15.1 %SVC . 

Operation 

%SVC(a) 


Code 
SVC a 


•3 1 15.2 % NAMECOPY. This operation works in the same manner 

as name assignments except that the operands must be structures, 
but not necessarily having identical properties. 


Operation 

%NAMECOPy (Y,X) ; 
where X is actual 
variable 


Code 

LA 
STH 


R , X 
X 

R , Y 
x' 


3.1.15.3 %COPY. 


Operation 

%COPY(X,Y) 


%COPY(X,Y,n) 


%C0PY(X,Y,5) ; 


Code 

L 
L 

MVH 

L 
L 

MVH 

L 
ST 
L 
ST 
LH 
STH 


«x' 

"y' 

''x' 

''x' 
R 


y' 

^y' 

^y' 

Ry » 

^y' 

''y' 


=Y(X, size of Y) 
=Z(Y) 

^y 

■=Y(X,n) 

= Z (Y) 

R 

y 

Y 

X 

Y+2 

X+2 

Y+4 

X+4 
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3.1,16 NONHAL References 

Definition and use of the NONHAL construct in 
the HAL/S-FC compiler system results in an unimplemented 
feature message from the code generator. 




-s 

Wj 


ij 
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3 . 2 Object Code. Naming Conventions 


Each successful HAL/S compilation produces several 
named control sections (CSECTs) . The GSECT names are 
derived according to the following rules: 

a) HAL/S compilation unit names are transferred 
to the emitted object code by using only the 
first six characters of the HAL/S name. The 
name will be padded or truncated to six 
characters where necessary. 

b) Any occurrence of the underscore character i ) 
in the first six characters of a PROGRAM, 
PROCEDURE, FUNCTION, TASK, or COMPOOL is 
eliminated. The resulting characters are 
joined together to produce the characteristic 
name of the compilation unit (e.g. A B C becomes 
ABC). Additional characters are placed^ on the 
front of the resultant name to form the final 
name for each of the individual situations in 
which the name is used. All CSECT names therefore 
take the form; 


ccNNNNNN 


re the value of cc 

for individual cases is; 

PROGRAM 


$0 

TASKS 


$c c= (1-9, A-Z) 

COMSUBs 


#C 

Internal procs 


an a=(A'^Z), n= (0 

DECLAREd data 


#D 

COMPOOL 


#P 

Process Directory 

Entries ; 

#E 

Z“Con to comsub 


#Z 

Remote data 


#R 

Exclusive data 


#x : 


In addition to CSECT' s produced by the compiler, the 
HAL/S-FC system defines other CSECT' s, some of which are 
referenced by compiler-emitted code. These CSECT types 
and their naming conventions are; 

Z-con to library routine; #Q 
Data for library routines: #L 
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3 . 3 Printed Data From Phase II 

Under control of the lilST compiler option, Phase II 
will produce a formatted, mnemonic listing of the object 
code produced for the compilation unit. In addition to 
the assembler- type mnemonic instruction listing, a full 
hexadecimal listing of the emitted code is also produced. 

This object code listing is normally appended to 
the Phase I primary source listing as defined by the 
SYSPRINT DD card. However, use of the SDL compiler option 
in addition to the LIST option causes the object code 
listing to be produced through the OUTPUT? DD card. The 
listing thus produced is compatible with the ABSLIST 
function of the AP-101 Link Editor. The HAL/SDL ICD contains 
the detailed description of the ABSLIST format. 


3.4 Symbol Table Augmentation 

Phase II inherits an initialized symbol table from 
Phase I. In the course of generating code. Phase II makes 
additions to the symbol table which are inherited, in turn, 
by Phase III. These additions are generally in the area of 
data addressing. 

Information is added in two of the symbol tables 
parallel arrays: 

• The SYT_ADDR array is filled with data offset 
information indicating the relative location of 
data items within CSECTs . 

• The EXTENT array is filled with information 
about the size of the storage allocated to 
individual data items . 
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statement Table Augmentation 


Phase III inherits, in a secondary storage device, 
the statement table produced by Phase I, If the ADDRS 
compiler option is in effect, Phase I leaves room in the 
statement table for beginning and ending addresses of 
individual HAL/S statements. This information is filled 
in by Phase II after the generation of the executable code 
has been performed. The completed statement table is then 
left for use by Phase III. 
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BlUPRODUCIBILTry OP THE 
OiHOMAL PAGE IS POOR 


4.0 PHASE III - SIMULATION DATA FILE GENERATION 

Phase III of the HAL/S-FC compiler has the primary 
function of providing Simulation Data Files (SDFs) for each 
unit of compilation. Phase III also produces user-oriented 
printouts upon special request. This section deals with the 
following Phase III functions; 

• SDF generation 

• Printed data 


4.1 SDF Generation 

Phase III synthesizes the SDF for a compilation unit 
from data received from previous Phases of the compiler. 

This data is primarily in two areas: a) The symbol table, 
created by Phase I and augmented by Phase II, and b) The 
statement table similarly created by Phase I and II. 

The detailed format of an SDF is controlled by the 
HAL/SDL Interface Control Document. The reader is referred 
there for details of SDF design beyond the overview presented 
in the next section. 


4.1.1 Overall SDF Design 

A Simulation Data File (SDF) is an organized and 
directoried collection of block, symbol, and statement data 
which is created by the HAL compiler from a single unit of 
compilation and stored in a permanent form for later use by 
simulation processors. 

There are basically three types of information contained 
in an SDF, These are; 

1) Symbol Data - contains the attributes of HAL symbols 
(labels and variables) such as name, class and type, 
relative core address, number of bytes in core 
occupied, etc. Also contains arrayness and 
dimensionality for arrayed variables, template 
linkages for elements of structures, and cross- 
reference information listing all statements within 
the compilation unit that may assign values to the 
symbol . 
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2 ) Statement Data - contains the attributes of HAL 
statements such as type, Statement Reference _ 

Numbers (SRNs) if specified by the user, indices 
for all labels attached to each statement, and 
indicies for all variables which may be assigned 
values by that statement. Also may optionally 
contain the relative core addresses of the first 
and last executable instructions emitted for that 
statement. 

3) Block and Directory Data ~ Contains information about 
each HAL block and the symbols and statements 
contained within that block, plus information concerning 
the layout and organization of the SDF which minimizes 
the time needed to access desxred data entries. 

An SDF is produced for all compilation units unless 
suppressed by the user (the TABLES/NOTABLES option) . In 
the case of COMPOOL compilations, the SDF becomes somewhat 
simplified, having no executable statements and, consequently, 
no cross-reference data for its symbols. 

SDFs are created as members of Partitioned Data Sets 
(PDSs) and are assigned names of the form ^fCCCCCC, where CCCCCC 
is the first six characters of the compilation unit name with 
any and all underscore characters removed. (Example; the 
SDFs for the compilation units SAMPLER and TEST__SAMPLE would 
jjQ assigned the names SAMPLE and ^^TESTSA, respectively) . The 
members are written in fixed record format with a block size 
and logical record length of 1680. 

The structure of the SDF will support three efficient 
types of access: 

1) Given the name of a symbol, and the name of the 
block in which it was declared, obtain the 
attributes of the symbol. 

2) Given a Statement Reference Number (SRN) , obtain 
the attributes of the statement. 

3) Given an Internal Statement Number (ISN) , obtain 
the attributes of the statement. 
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In access methods 1) and 2), the SDF directory plays 
a key role. When the symbol name and its block are given, 
the directory will identify which particular physical record 
of the SDF contains the corresponding fixed-length Symbol 
Node. Once this record has been read into core, a simple 
and fast binary search will locate the symbol node which 
in turn "points" directly to the attributes of the symbol 
which are contained within a variable-length Symbol Data 
Cell, h virtually identical procedure can be used to locate 
statement data when the SRN is given. In this case, the fixed- 
length nodes involed in the binary search are called Statement 
Nodes, and their corresponding variable-length data cells are 
called Statement Data Cells. 

In contrast to access methods 1) and 2), which require 
directory help followed by binary searches, method 3) is 
direct. This is because there is a one-to-one correspondence 
between the ISN (compiler-generated Internal Statement Number) 
and the order of the Statement Nodes. The HAL/SDL ICD contains 
detailed descriptions of the SDF organization. 


4 . 2 Phase III Printed Da ta 


For each invocation of Phase III, a set of tabular 
data is printed. The information presented deals with 
parameters relating to the SDF produced, such as number 

of SDP pages, numbers of block, symbol, and statement nodes, 
etc. ' 

In addition to the information which is always printed, 
two optional printouts are avaxlable. Under control of the 
TABLST compiler option, the user may request that symbolic, 
st^^ctured dump of 'the SDF be provided. In addition, under 
control of the TABDMP compiler option, the user may request 
that the contents of the SDF be displayed in a hexadecimal 
format, page by page. 
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5.0 RUN TIME LIBRARY 


5. 1 Introduction 

This section describes the HAL/S’-FC runtime library 
as used to support the HAL/S-FC compiler. The material is 
organized to present both general design concepts and 
detailed interface and algorithm information. Following 
an introductory discussion of general conventions used 
throughout the library, descriptions of the individual 
routines are grouped according to the basic type of 
the routine. Each group is introduced by a quick-reference 
chart containing basic interface data. 


5.2 Basics and Conventions 


5.2.1 Origin and Format 

The HAL/S-FC compiler comes supplied with a r\in time 
library. The library is a partitioned dataset (PDS) in IBM 
AP-101 load module format. Each ^primary member of the library 
was generated by assembling the identically named member of a 
source library consisting of statements written in AP-101 Basic 
Assembler Language (BAL) . Some source library members produce 
more than one entry point, in which case load module library 
ALIAS names are generated for each entry. A macro library 
was used to standardize frequently used sequences of source 
code. 


5.2.2 Purpose 

The run time library is used to supply routines, data 
and interfaces which are needed to execute a HAL/S program or 
group of programs, which are not produced by the compiler's 
code generator. Most of the library consists of subroutines 
which are called from compiler generated code in a HAL state- 
ment. 
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5.2.3 Intrinsics and Procedure Routines 

The library routines are divided into two groups: 
intrinsics and procedures. The main distinction is that 
procedure routines save the passed contents of all fixed 
point registers, while intrinsics do not. For this reason, 
a procedure can call another routine (e.g. vector (W10&3) 
magnitude calls SQRT) , but an intrinsic cannot. Intrinsics 
do not have a new stack level and therefore do not have any 
stack work areas. Because intrinsics do not save all Passed 
contents of fixed point registers, they cannot restore them, 
and must not destroy any register contents that must be 
returned to the calling program. Expansions of the macros 
within intrinsics routines are different from the expansions 
within procedure routines. 

5.2.4 Register Conventions in Run Time Library Routines 


5.2. 4.1 General Purpose Registers RQ-R7 


R1-R3, R5-R7 
R4 

RO 

Parameters 


free use ; 

return address during calling 
and exiting intrinsics, otherwise 
free use; 

stack base ; 

Intrinsics: any or all of Rl, 

R2, R3, R5, R6, R7 can be used 
for parameter passing. 

Procedures: any or all of R2, R4, 

R5, R6, R7 can be used for 
parameter passing. 


5. 2. 4. 2 Floating Registers F0-F6 . 

F0-F4 : free use; 

F6 (F7) : 


Parameters 


may be used only if saved and 
restored at entry and exit; 

depending on the individual routine, 
any or all of F0-F4 can be used for 
parameter passing. 


Only F6 is guaranteed constant across procedure calls, 
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5 . 2 , 4 . 3 Interface Conventions . 

In addition to the parameter passing conventions summarized 
in general form in the previous two sections and given in detail 
in the individual library routine descriptions, the compiler has 
informationi defining the linkage conventions and register usage 
for each robtine. This section contains that information in a 
list formatted in four columns as follows: 

NAME The primary or secondary entry 

point name. 

CALL TYPE Either PROCEDURE or INTRINSIC to 

distinguish between routines which 
must be called via the SCAL instruc- 
tion and those that must be called 
using BAL. 

YES indicates that the routine will 
always reside in Sector 0 of the GPC 
and may therefore always be called 
directly {no ZCON needed) . NO indicates 
that the routine may reside in a sector 
other than 0 and must therefore be 
called via a long indirect address 
constant (ZCON). 

Registers assumed to be modified 

• A list of registers which the compiler 
assumes to be modified across a call 
to the routine. Any registers not 
listed may be assumed to remain unmod- 
ified and therefore to maintain their 
previous contents* 


Any modifications to compiler or library should be made care- 
fully so as to maintain this interface properly. .. 
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BANKO 




SEPHOBUCIBFOT OP TEE 
OMIOINAL : 


NAME 

CALL TYPE 

BANKO 

ACCS 

PBOCEDURE 

NC 

A S IN 

PBOCLDDBE 

NO 

ACGSH 

PBOCEDURE 

NC 

ASIMH 

PBOCEDURE 

NC 

AIANH 

PBOCEDURE 

NO 

BTOC 

INTRINSIC 

NO 

CASFV 

INTRINSIC 

NO 

CA{SP 

iNTRINSIC ; 

NO 

CASBFV 

, PBOCEDURE 

MO 

CASBP 

1 PBOCEDURE 

NO 

CASRV 

PBOCEDURE 

NC 

CASR 

Pfi'oCEDURE 

NO 

CASV 

INTRINSIC 

NO 

CAS 

INTRINSIC 

MO 

CATV 

INTRINSIC 

NO 

CAT 

INTRINSIC 

NO 

CIN 

PROCEDURE 

NO 

CIMDEX 

PROCEDURE 

NC 

CINP 

PBOCEDURE 

NO 

CLJSTV 

PROCEDURE 

NC 

CCDTP 

PBOCEDURE 

i NO 

COUI 

PBOCEDURE 

NO 

CPAS 

PBOCEDURE 

MO 

CPASf 

; PBOCEDURE 

MO 

CPASB 

; PBOCEDURE 

NO 

GPASBP 

procedure 

NO 

CPB 

INTRINSIC 

NO 

CPBC 

INTRINSIC 

NO 

CPBA 

PROCEDURE 

NO 

CBJSTV 

PROCEDURE 

NO 

CSKMPQ 

PROCEDURE ^ 

NC 

CSXDI 

PROCEDURE 

NO 

CSLDP 

PROCEDURE 

NO 

CPSLD 

PBOCEDURE 

NO 

CPSLDP 

: PBOCEDURE 

MO 

CSST 

PROCEDURE 

NO 

CSSTP 

PROCEDURE : 

NO - 

CPSST 

PBOCEDURE ’ 

NO 

CPSSTF 

PBOCEDURE 

NO 

CSTB 

PBOCEDURE 

NO 

CSTBUC 

INTRINSIC 

NO 

CICB 

PROCEDURE 

NO 

CTCE 

PBOCEDURE 

NO 

CTCD 

PBOCEDURE 

NO 

CTCI 

procedure 

MO 

CTGK 

PROCEDURE 

NO 

CTCH 

PROCEDURE 

NO 

CTCX 

PROCEDURE 

NO 

CTCO 

PROCEDURE 

MO 

CTBIHV 

PBOCEDURE 

NC 

DACOS 

PROCEDURE 

NO 

DASZM 

PBOCEDUBE 

NO 

DACOSH 

PBOCECUBB 

NC 


BEGISTBRS ASSUMED TO BE MODIFIED 

fO,F1,F2,F3,F4,F5 

F0,f1*F2,F3,F4,F5 

F0,F1,F2,F3,F4»F5 

F0,F1,F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

ti1,E2,B3,B4,K5,fi6,B7 

R1,S2,B3,R4,ii5,fi6 

R1 ,fi2,R3/E4,R5,R6 

MORE 

NOME 

NONE 

NOME 

B1,B2,R3,R4rR5 
El ,R2,R3,R4,R5 
fi1,R2,R3,R4,E5,R6,R7,F0,F1 
ai,B2,R3,R4,R5,R6,R7,F0,P1 
NONE 

H5,F0,F1,F2,F3,F4,F5 

F0,F1 

F0,F1 

NONE 

NONE 

po,n 

F0,F1 

F0,F1 

F0,F1 

R2,R3,R4,R5»R6 

R2,S3,R4,R5,E6 

NONE 

F0,F1 

F0,|FnF2,F3,F4,F5 

R5,F0,Fl 

R5,F0,F1 

R5,F0,F1 

R5,F0,F1 

R5,.F0fFl 

R5„F0,E1 

R5,lE0,F1 

R5,E0,F1 

NONE 

R2rB3,B4,R5/R6 

R5,P0,F1 

P0,F1,F2,P3,F4,F5 

P0,F1,F2,P3,P4,F5 

H5,F0,F1 

H5,F0,F1 

H5,F0,F1 

R5,FO,P1 

R5,F0,F1 

F0,F1 

F0,F1»F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

E0,P1,P2,F3,P4,F5 
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DASINH 

PBOCEDURE 

NC 

DAIAMti 

PaOCEDOBE 

NC 

DATAN2 

PROCEDURE 

NO 

DAIAN 

PROCEDUBE 

NC 

DEXP 

PROCEDURE 

NO 

DLCG 

PROCEDURE 

NO 

DNAX 

INTRINSIC 

NC 

DMCVAL 

PROCEDURE 

NC 

CHIN 

1 INTRINSIC 

NC 

DMOD 

' INTRINSIC 

NC 

CffiOX 

INTRINSIC 

NC 

CP WHO 

PROCEDURE 

NO 

DPHRI 

PROCEDURE 

NO 

dpwrh 

PROCEDURE 

NO 

DSIN 

PROCEDUBE 

NC 

Decs 

PROCEDURE 

NC 

DSINH 

PBOCEDURE 

NC 

DCCSH 

PROCEDURE 

NO 

DSLD 

PROCEDURE 

NO 

DSQRI 

PROCEDUBE 

NC 

DSST 

FKOCEDURE 

NO 

DSUM 

INTRINSIC 

NC 

CTAN 

PROCEDURE 

NC 

DTANEi 

PROCEDUBE 

NC 

EAIAN2 

PROCEDURE 

NC 

AlAN 

PROCEDURE 

NC 

E«AX 

INTRINSIC 

NO 

EMIN 

INTRINSIC 

NC 

EMCD 

INTRINSIC 

NC 

FP8UD 

INTRINSIC 

NC 

EPURE 

PROCEDURE 

NO 

EPWEI 

PROCEDURE 

NO 

EPHRH 

PROCEDUBE 

NO 

ESOM 

INTRINSIC 

NO 

EICC 

procedure 

NC 

DTCc 

PROCEDURE 

NC 

EIGH 

INTRINSIC : 

YDS 

DTOfi 

INTRINSIC 

YES 

EXP 

procedure 

NC 

GTBYTE 

INTRINSIC 

NC 

HIN 

PROCEDURE 

NC 

11 N 

PROCEDURE 

NO 

BIN 

PROCEDURE 

NO 

DIN 

PROCEDURE 

NC 

BIN 

PROCEDURE 

NC 

UMAX 

INTRINSIC 

NC 

HI1IN 

INTRINSIC 

NC 

HtaOL 

INTRINSIC 

NO 

HSOK 

INTRINSIC 

NC 

IKAX 

INTRINSIC 

NO 

IMIN 

INTRINSIC 

NC 

IMOD 

INTRINSIC 

NO 

HMOD 

INTRINSIC 

NO 

ICINII 

PROCEDURE 

N C 

HCUT 

PBOCEDURE 

NO 
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F0,F1,F2,J3,F4,F5 

F0,F1,F2*P3,F4,F5 

F0,iF1,F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

F0,F1,F2,F3 

F0,F1,F2,F3,F4,F5 

H2.fi4,F5,F0,F1 

F0,F1,F2,F3,F4,F5 

K2,B4,H5,F0,F1 

B4,F0,F1,F2>F3,F4,F5 

fi2,R4,H5,F0,F1 

F0,F1,F2,F3,F4,F5 

F0,F1/F2,F3 

F0*F1,F2,F3 I 

F0,F1,F2,F3,F4,F5 i 

FQ,Fl,F3,F3,F4,f 5 I 

F0,F1,F2, F3,F4,F5 

F0,F1,F2,F3,P4,F5 

F0,F1 ,F2,F3,F4,F5 
NONE 

f{2,E4,R5,F0»F1 

F0,F1,F2,F3,F4,F5 

F0,F1,F2^F3,P4,F5 

F0,F1,F2,F3,F4,F5 

F0,F1,P2,F3»F4,F5 

H2,R4,F5,F0,F1 

R2,R4,H5,F0,F1 

K4,F0,F1,F2,F3,F4,F5 

B2,H4,H5,F0,PT 

F0,F1,F2,F3,F4,F5 

F0,F1,F2,F3 

F0,F1,F2,F3 

H2,a4,R5*F0,F1 

F0,F1,F2rF3,F4,F5 

F0,Fjl,F2,F3,F4,F5 

H4,RS,F0^F1 

B4,H5,F0,F1 

F0,F1,?2,F3 

R2/R4,H5,F0,F1 

F0,F1 

F0,F1 

F0/F1 

F0,f1 

F0,F1 i 

fi2,H4,B5,R6 

fi2,E4,M3,R6 

H2,R4,R5,R6 I : 

K2,R4,R5,R6 

R2,R4,E5,R6 

H2,R4,R5,R6 

H2,R4,fi5,fi6,K7 

H2,B4,R5,R6,R7 

F0,F1 

F0,F1 
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OUTER 1 

PROCEDURE 

NO 

rooT 

PROCEDURE 

NO 

ECUT 

PROCEDURE 

NO 

DOUT 

PROCEDURE 

NO 

BOUT 

PROCEDURE 

NO 

SKIP 

PROCEDURE 

NO 

LINE 

PROCEDURE 

NO 

COLUMN 

PROCEDURE 

NO 

lAB 

PROCEDURE 

NO 

PAGE 

PROCEDURE 

NO 

I PROD 

INTRINSIC 

NO 

IPBRI 

PROCEDURE 

NC 

IPHRH 

PROCEDURE 

NO 

MPURH 

PROCEDURE 

NO 

IREM 

INTRINSIC 

NC 

HEEM 

INTRINSIC 

NO 

ISU« 

INTRINSIC 

NO 

ITOC 

PROCEDURE 

NO 

HTCC 

PROCEDURE 

NO 

ITCD 

INTRINSIC 

YES 

ITCE 

INTRINSIC 

YES 

KTOG 

INTRINSIC 

NO 

LOG 

PROCEDURE 

SC 

M KRONE 

PROCEDURE 

NC 

KKESNE 

PROCEDURE 

NC 

KKWDNP 

PROCEDURE 

NO 

KBWSNP 

PROCEDURE 

NC 

KMODNE 

INTRINSIC 

NO 

HMOSNP 

INTRINSIC 

NO 

HM1DKP 

INTRINSIC 

NO 

MK1SNP 

INTRINSIC 

NO 

NM1TNP 

INTRINSIC 

NO 

MHIWNP 

INTRINSIC 

NO 

MM11DN 

INTRINSIC 

NO 

MM11I)3 

INTRINSIC 

NC 

BK11 SN 

INTRINSIC 

NC 

M«11 S3 

INTRINSIC 

NC 

MM12DN 

PROCEDURE 

NC 

MK12 C3 

PROCEDURE 

NC 

MK'i2SN 

PROCEDURE 

NC 

NK12S3 

PROCEDURE 

NC 

M K 13 D N 

INTRINSIC 

NC 

HM13D3 

INTRINSIC 

NO 

MK13SN 

INTRINSIC 

NO 

BM13S3 

INTRINSIC 

NO 

MM14DN 

PROCEDURE 

NC 

MM14D3 

PHOCEDOBE 

NO 

MW14SN 

PROCEDURE 

NC 

MK14S3 

PROCEDURE 

NO 

HM15DN 

INTRINSIC 

NO 

MB15SN 

INTRINSIC 

NO 

Mfn7D3 

PBOCEDURE 

NC 

BB17DN 

PROCEDURE 

NO 

MB17S3 

PROCEDURE 

NO 

BM17SN 

PSOGEDUHE 

NC 
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BOTODUCEBILITY OP THE 
1 ^* 1 ] OBIGINAL PAGE IS POOB 

£ u , r 1 
F0,f1 
F0,F1 
F0,F1 
F0,F1 
F0,F1 
F0,F1 
F0,F1 
F0,F1 

R2<,E4,R5*R6,R7 

R5 

R5 

H5 

R2,R4,R5,fi6,R7 

H2,R4,R5,R6,R7 

R2pR4,a5,R6 

NONE 

NONE 

R4,E5,F0,F1 

R4,R5,F0,F1 

R1 ,R2,R3,R4,R5,R6,H7,F0,F1 

FO, F1,F2,F3,F4,F5 

NONE 

NONE 

F0,F1 

F0,F1 

R1,E3,R4,R5,R6,R7,F0,F1 

RnE3,R4,R5,R6,e7,F0,F1 

EnB2,R3,R4,E5, R6,R7,F0,F1,F2,F3 

R1,S2,E3,R4,R5,R6,R7,P0,F1 

R1 ,R2,B3,R4,E5,H6,H7,FO,F1 ,P2,F3 

EnR2,R3,R4pR5,R6,R7/F0,F1,F2,F3 

HI ,R2,R3,R4,R5,R6,S7/F0,F 1,F2,F3 

Rl,R2,fi4,R5,F0,F1,F2/F3,F4,F5 

R i ,E2,E3,E4,E5,R6,R7,F0,Fr 

E1 ,H2^R4,R5,F0,F1,F2,P3 

F0,F1,F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

F0,F1,F2,F3VF4,P5 

F0,F1,F2,F3,F4,P5 

R2,B4,H5,R6,F0,F1 

R2,E4,F0,F1 

R2,B4,HS,H6,F0,F1 

R2,R4VF0/F1 

F0,F1,F2,F3,F4,F5 

F0,FnF2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

fil ,R4,B5,H6,R7,F0»FT,F2,F3 

R1,B4, R5,B6,R7,F0,Fl ,F2,F3 

F0,F1,F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

F0,F1/F2,F3,F4,F5 

F0,F1,F2,F3,F4^F5 
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INTRINSIC 

NO 

R1,B2,R3,R4,R5,R6,R7,F0,F1,F2,F3,E4,F5 

MH6D3 

INTElNSIC 

NO 

HI ,E2,B3,B4,B5,H6*H7,P0,F1,F2,F3,F4,F5 

MM6SN 

INTBINSIC 

NO 

Rl,E2,a3#R4rR5,H6,R7,F0,Fl,F2,F3,F4,F5 

HH6S3 

INTBINSIC 

NO 

BnB2^R3,R4,R5,R6,R7,F0,Fl,F2,F3,F4,F5 

MBODNF 

EBOCEDUEE 

NO 

F0,n 

naosBF 

EBOGEDaRE 

NO 

F0,F1 

«B1DNE 

EHOCEDtIBE 

NO 

F0,F1 

MB IS BP 

EflOCEDURE 

NO 

F0,F1 

KB IT BE 

EBOciDURE 

NO 

F0,F1 

HfilWBF 

EBOCEDUBE 

NO 

F0,F1 

MSIH 

EROCELUEE 

NO 

NONE 

HSiauc 

INTBINSIC 

NO 

R1 ,R2rB‘1»B5,R6 

MV6DN 

INTRINSIC 

MO 

B1,B2, R3,H4,R5,B6,R7,F0,F1, F2,F3,F4,F5 

MV6D3 

INTRINSIC 

NO 

R1 ,R2,R3rR4,R5,R6,H7,P0,F1 ,F2,F3 

KV6SN 

INTBINSIC 

NO 

R1,R2,H3,R4,R5,B6,R7,F0,F1,F2,F3,F4,F5 

MV6S3 

INTRINSIC 

NO 

HI ,R2,R3,E4,R5,H6,F0,F1,F2,F3 

QSHAEQ 

BBGCEDUHE 

NO 

F0,F1 

HANDOfl 

PROCEDURE 

NO 

F0,F1,F2,F3 

BABDG 

PROCEDURE 

NO 

F0,F1,F2,F3 

KGUMD 

INTRINSIC 

YES 

B4,F5,F0,F1 

ETOI 

INTBINSIC 

YES 

E4,R5r,F0,Fl 

TEUNC 

INTBINSIC 

YES 

R4,B5,F0,F1 

FLOOB 

INTBINSIC 

YES 

E4,R5^F0,F1 

CEIL 

INTBINSIC 

YES 

R4,B5,F0#F1 . 

DIBUNC 

INTRINSIC 

YES 

R4,R5^E0,F1 

DF.LOCE 

INTBINSIC 

YES 

R4,R5,F0,F1 - 

DCEIL 

INTElNSIC 

YES 

R4,R5,F0,F1 

DBCUND 

INTRINSIC 

YES 

R4,B5,F0,F1 

DTCI 

INTRINSIC 

YES 

H4/R5^E0,F1 

SIB 

INTBINSIC 

NO 

B1,B3,R4:,F0,F1,F2,F3,F4,F5 

CCS 

INTBINSIC 

NO 

R1,B3,R4,F0,F1,F2,P3,F4,:F5| 

SIBH 

PEOCEDURE 

NO 

F0,FliF2,F3,F4,F5 

CCSH 

PBOCEDUHE 

NO 

F0,F1;F2»F3,F4,F5 i 

SQRT 

INTBINSIC 

NO 

HI ,B4>R5,R6,R7,FU,fI» ,F2,F3 

STBYTE 

INTBINSIC 

NO 

R1,R4,R5, F0,F1 

IAN 

PEOCEDURE 

NC 

F0,F1,F2,F3,F4,F5 

lANH 

PBOCEDUBE 

NO 

F0,F1>F2,F3,F4,F5 | 

VM6DB 

INTRINSIC 

NO 

B1 ,B2,B3,B4,R5,R6,Rt7,F0,Fl ,F2,F3,F4,F5 

VK6D3 

INTBINSIC 

NO 

R1,R2,R3,R4,R5,F0,F1 ,F2,F3,F4,F5 

VM6SN 

INTRINSIC 

NO 

R1 ,B2,fi3,R4,B5,B6,R7,F0,Fl ,F2,F3,F4,F5 

VM6S3 

INTBINSIC 

NO 

R1,B2, H3,R4,e5,F0,F1,F2,F3 

VC6DN 

INTBINSIC 

NO 

R1 ,R2, R3,R4,R5,R6,B7 rF0,F1 ,F4,F5 

VC6D3 

INTBINSIC 

NC 

B1,R2,R3,B4,R5,B6,F0,F1 

V06SN 

INTBINSIC 

NO 

E1,|B2,S3,R4,K5,R6,R7,F0,P1 ,F4,F5 

VG6S3 

INTRINSIC 

NO 

H1,iR2, R3,R4,E5,B6,F0rFl 

VRODB 

PBOCEDUBE 

NO 

F0,F1 

V BOD BE 

PROCEDURE 

NO 

F0,F1 

VEOSN 

PaOCEDUBE 

NC 

F0,F1 r 

VBOSBE 

EBOCEDURE 

NO 

F0,E1 1 

VB1DN 

PBOCEDORE 

NO 

F0,F1 

VBIDBE 

PROCEDURE 

NO. 

F0,F1 

VBISN 

PROCEDURE 

NO 

F0,F1 

VB1SBE 

PROCEDURE 

NC 

F0,F1 

VB1TN 

PBOCEDUHE 

NO 

P0,F1 

VEITBE 

PBOCEDUBE 

NO 

F0,P1 
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VE1HN 

PROCEDURE 

NC 

VRIHRE 

PROCEDURE 

NC 

WORN 

INTBIBSIC 

NC 

VVODNP 

INTRINSIC 

NC 

VVOSN 

INTRINSIC 

NC 

VVGSNE 

INTRINSIC 

NC 

VVIDN 

INTRINSIC 

NC 

VVIRS 

INTRINSIC 

NC 

VV1D3P 

INTRINSIC 

NO 

VVIDNE 

INTRINSIC 

NC 

WISH 

INTRINSIC 

NC 

VV1S3 

INTRINSIC 

NC 

VV1S3P 

INTRINSIC 

NO 

VVISNE 

INTRINSIC 

NO 

VV1TN 

INTRINSIC 

NO 

VV1T3 

intrinsic 

NO 

VV1T3E 

INTRINSIC 

NO 

VV1TNP 

INTRINSIC 

NO 

VV1HN 

INTRINSIC 

NC 

VV1W3 

INTRINSIC 

NO 

VV1W3P 

INTRINSIC 

NO 

VV1WNP 

INTRINSIC 

NO 

VV10D3 

PROCEDURE 

NO 

VV10DN 

PROCEDURE 

NC 

VV9D3 

PROCEDURE 

NO 

VV9DN 

PROCEDURE 

NC 

VV10S3 

PROCEDURE 

NO 

VV10SN 

PROCEDURE 

NC 

VV9S3 

PROCEDURE 

NC 

VV9SN 

PROCEDURE 

NC 

VV2DN 

INTRINSIC 

NO 

VV2D3 

INTRINSIC 

NC 

VV2SN 

INTRINSIC 

NO 

VV2S3 

INTRINSIC 

NC 

VV3DN 

INTRINSIC 

NO 

VV3D3 

INTRINSIC 

NC 

VV3SN 

INTRINSIC 

NO 

VV3S3 

INTRINSIC 

NO 

VV4DN 

INTRINSIC 

NO 

VV4D3 

INTRINSIC 

NC 

VV4SN 

INTRINSIC 

NC 

VV4S3 

INTBINSIC 

NC 

VV5DH 

INTRINSIC 

NC 

VV5D3 

INTRINSIC 

NC 

VV5SN 

INTRINSIC 

NO 

VV5S3 

iNTfilNSIC 

NC 

VV6DN 

INTRINSIC 

NO 

VV6D3 

INTRINSIC 

NC 

VV6SN 

INTRINSIC 

NO 

VV6S3 

INTRINSIC 

NG 

VV7DN 

INTRINSIC 

NC 

VV7D3 

INTRINSIC 

NC 

VV7SN 

. INTRINSIC 

NC 

VV7S3 

INTRINSIC 

NC 

VV8D3 

INTRINSIC 

NO 


F0,F1 

F0*F1 

R1,B4, 85,F0,F1 

El ,fi4,H5,R7 /F0,F1 

E1,H4,B5,F0,F1 

El ,B4,B5,R7 ,F0,F1 

R1„S2,a4,R5,F0,Fl 

El ,E2,B4,FU,F1 ,F2,F3,F4,F5 

ai,R2,R4,R5,H6,R7^F0,F1 

snE2,E4,R5,R6,R7,F0,F1 

E1,B2,E4,R5.FQ,F1 

Rr,R2,R4,Fa/F1 ,F2,F3,F4,F5 

R1,E2,B4,R5,R6,E7,F0,F1 

Rl,B2,R4,R5^fi6,E7,F0,F1 

ai,R2,E4,R5,F0^F1 

Hl,B2,R4,F0,Fl,F2,F3,F4,Fb 

R1,E2,R4,R5,R6,S7,F0,F1 

E1,B2,R4,E5,E6,R7,F0,F1 

R1,E2,R4,R5,FC},F1 

HI ,H2,R4,F0,F1 

H1,E2,R4,R5,E6,H7,F0,F1 

R1 ,R2,B4,B5 J^6,a7,F0,F1 

F0,F1,F2*F3,F4,F5 

F0,F1 »F2,F3 ,F4,F5 

F0,F1,F2,F3,F4,F5 

F0,FV,F2rF3,F4,F5 

F0,F1, F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

F0,Fr,F2,F3,F4,F5 

F0,F1,F2,F3,F4,F5 

R1^E2,E3,R4,R5,F0,F1 

E1 ,R2,R3,R4,F0,F1,F2,F3,P4,F5 

R1,H2,R3,R4,B5,F0,F1 

H1,B2,R3,R4,F0,F1 ,F2,F3,F4,F5 

R1,R2/E3,R4,R5,F0,F1 

R1,E2,R3,K4,F0,F1 

R1,R2,R3,H4^R5,F0,F1 

Rl,R2,a3/R4,F0,F1,F2,P3,F4,P5 

R1,R2,R4,R5,F0,P1,F2,F3 

HI ,H2,a4,F0,F1,F2,F3 

B1,E2,R4,R5,F0,F1,F2,F3 

El ,R2,R4,F0,F1,F2,F3 

R1,R2, R4,R5,F0rFl/F2^F3 

R1VR2,R4,F0,F1 ,P2,F3,F4,F5 

R1,R2,R4,R5,F0,F1,F2,F3 

H1/R2,R4,F0,F1,F2,F3 

R1,R2, 83,R4,R5,F0,F1,F2,F3 

R2,B3,R4,F0,F1,F2,F3 

R1,R2,fi3,R4,R5,F0,F1 ,F2,F3 

R2,R3,R4,F0,F1,F2,F3 

R1,R2,R4>R5,F0,F1 

R 1 , R 2 , B 4 , F 0 , F 1 , F 2 , F3 , F 4 , F 5 

Rl,fi2,R4,R5,F0,F1 

R1 ^R2 , R4 r F 0 , F 1 , F2 , F3 , F 4 , F5 

Hl,fi2/R3,R4,fi5,F0,Fl 
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VV8DN 

IBTBINSIC 

NC 

VV8S3 

INTBINSIC 

NO 

VV8SN 

INTBINSIC 

NO 

VX6D3 

INTRINSIC 

NO 

VX6S3 

INTBINSIC 

NO 

XTOC 

INTBINSIC 

NO 

OIOC 

INTBINSIC 

NO 


H1,B2,B3,K4,K5,F0,F1 

B1rB2,B3,B4,R5,P0,Fl 

B1,E2,B3^B4,B5,F0,F1 

H1,E2,B3,R4,F0,F1,F2,F3,FU,F5 

B1,B2,B3,R4,F0,F1,F2,F3 

Bl,B2,a3,B4,R5*B6,B7,F0,Fl 

Rna2.B3,B4,R5,R6,H7,F0,Fl 
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OF TilE 
TAOE M POOR 


5.2.5 Referencing Conventions 

t; 9 1 GSECT Names. In order to comply with the C SECT 

library primary names and aliases are unique to 6 characters. 

_ r'Cl'PCT is needed for a particular library 

module ”lt”lFgiven the CSECT name #Lnnnnnn, where nnnnnn 
Tftirfi^sFe^c^Lactera of the primary entry name. 

5 . 2 . 5 . 2 . For ^fSLgeF^Kists^iFn^parate 

ISoNA?brary!" 5hS meSbirl L the^koN library contai^n address 

which refer to the actual entry points. Thus, for 
constants wnicn retex bac an entry point named 

the library routine named SIN wh library named #QSIN and 

roc; bhere are two members in the zcun iioxaiy ii^ 

iCb! *?hrfnS?Mufiic^^^^ 

created by assembly code like the following. 

#QSIN CSECT 

DC Z(SIN,rX'E') 

EXTRN SIN 
END 

some library routines make reference ^CALL 

routines via the ACALL macro (see Section 5.2.6). ^ 

routines V reference via a ZCON as is done when 

macro does not maKe rei.eic;ii>- ^ ^ i-ibrarv routine. Use of 
1 Qf-mm-i bted code references a iiPrary roux-xuc. 
compiler emittea co , routine reference means 

tha/S^Sfe?enced°routine must be 

as the referencing routine, or must be m sector zero. 


j. n -w r\vi +• -i r> <=> c! are an exception: their CSECT names ^ 

Kr“witno^"^?his is to ^^i^fuorr?Sut?"es 

FA if tSrIift^fn%Atl f s 2?i.3^p in the bo.ed 

aAa ol the individual library routine description. 
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5.2.6 Coding Structure 

The following outline represents the standard coding 
structure of all library members. 

1 TITLE 

2 WORKAREA macro definition 

used only if addition stack storage was needed 

3 AMAIN 

4 * Comment card describing the function of the 
primary entry point 

5 INPUT 

6 OUTPUT 

7 body of executable code including use of WORK, 
AERROR, AEXIT macros where needed and alternate 
entry points defined using the AENTRY macro, 
function comment card, and INPUT and OUTPUT macros 
in the same manner as the primary entry point. 

8 DC constant area addressed via PC relative mode 

9 ADATA, followed by a DC constant area addressed via 
base and displacement mode. 

used only if constands need to be indexed 
10 ACLOSE 
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5.2.7 The Macro Library 


I 


1 

I 

I 


j 

i 

j' 


To standardize interface conventions , automate production 
of commonly used code sequences, and impose a structure to the 
runtime library, a series of macros are used. This section 
describes the function, use, and expansion of these macros. 

Lower case letters are used to indicate variable fields. Square 
brackets [ ] indicate optional fields, braces { } indicate a 
choice of required fields. Complete listings of all the macro 
source code is also included. 

• AMAIN 

name AMAIN 


Function ; 

Defines "name" as the primary entry point of a routine. 

INTSIC=YES : 

Defines the routine (and any entry points) as an intrinsic. 

If the INTSIC operand is omitted, the routine is defined as a 
procedure. 

INTSIC=INTERNAL ; 

Defines an intrinsic which is called only by other routines 
in the library. At present, this is only GTBYTE and STBYTE. 

ACALL=YES : 

(Valid only for procedure routines.) Allows use of the ACALL 
macro within the routine (See ACALL description). 


INTSIC = i 

I INTERNAL) 

ACALL = YES 

SECTOR =0 


SECTORED; 

■ "■ ! ; — " 

Defines the routine (intrinsic or procedure) as a Sector 0 
routine. 

Expansion ; 

The macro first defines the primary entry "name" (the AMAIN 
label) as the CSECT name, unless SECTOR=0 was specified. In the 
latter case, the CSECT name is generated by prefixing "name" with 
#0, and the primary entry "name" is defined using the DS and ENTRY 
statements. The options selected via the AMAIN operands are saved 
in global SETB variables for testing by the other macros. If 
either INTSIC option was selected, the macro ends. Otherwise, 
a procedure is being defined, so the STACK D SECT is generated. 
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The STACK DSECT consists of a standard 18 halfword area, 
including symbols for the saved copies of the fixed point 
register parameters (ARG2, ARG4, ARG5, ARG6, ARG7) , followed 
by the WORKAREA macro. The WORKAREA macro is the means by 
which additional storage beyond the standard stack of 18 
halfwords may be defined. If such storage is needed a local 
WORKAREA macro must have been defined earlier in the source 
which contains the appropriate DS assembler statements. These 
statements are thus incorporated as the remainder of the 
STACK DSECT. If additional storage is not needed, the local 
WORKAREA macro is not defined. As a result, the system WORKAREA 
macro is invoked, which does not define any storage, leaving 
the STACK DSECT at its standard length. The system WORKAREA 
macro also sets a global SETB variable, which is tested later 
by the AMAIN macro to determine if the stack is standard or 
augmented. The STACK DSECT is then terminated by resuming the 
original CSECT. The STACK DSECT is defined in this sequence 
so that the assembler will output the SYM records in the order 
expected by the link editor's stack size algorithm. A USING 
statement is generated to give addressibility to the stack area. 
Finally, the executable code of the entry prologue is generated. 
This consists of an NIST instruction to zero the 9th halfword 
of the new stack frame, establishing a null ON ERROR environ- 
ment. In addition, if both ACALL=YES is specified and a local 
WORKAREA provided, the default stack size of 18 set up by the 
SCAL microcode will be insufficient, so an lAL to set up the new 
Stack size is generated. 


• AENTRY 

name AENTRY 
Function ; 

Defines "name" as a secondary entry point. 

Expansion ; 

"name" is externally defined using the DS and ENTRY statements. 
If the routine was defined as an intrinsic, the macro ends. Other 
wise, the executable code of the entry prologue is generated in 
the same manner as the AMAIN macro. 
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• AEXIT 


AEXIT 


"CC = (KEEP 
J (rx) 
EQ 
^NE 

COND=code 





Function ; 

Cause return o£ control from a procedure or intrinsic 
routine. 

CC; 

Used to pass a condition code back to the caller. It 
can be used only if OUTPUT CC was specified. (See OUTPUT 
macro . ) 

Valid for Intrinsics Only ; 

CC=KEEP ; 

Passes back the condition code as is. 

CC= (rx) ; 

Passes back the condition code generated by a LR rx, rx. 

Valid for Procedures Only ; 

CC==EQ ; 

Passes back an equal (B'OOV) condition code. 

CC=NE ; 

Passes back a not equal (B' 11' ) condition code. 

Note; The CC= operand is used in the following 8 routines; 

CPR, CPRA, CTSR, CSTRUCT, W8DN, W8D3, W8SN, and W8S3. 

COND-code ; 

Used to do a conditional return, i.e. based on the current 
condition code. Valid for procedures only. "code" is either a 
number used as the mask on a BC opcode, or a letter or letter pair 
representing the mask in the extended BC mnemonic op codes. 

(E, Z, NE, NZ, H, O, L, M, HE, LE, NL, NM, NH, NO). This _ 
operand may be used to improve the efficiency of some routines. 

If used, be sure valid executable code follows it, so the fall 
through case is valid. 
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Expansion ; 


The code generated by the AEXIT macro depends primarily on 
whether the routine is an intrinsic or procedure, and secondarily 
on what operands were supplied, and, in the case of intrinsics, 
what fixed point registers were used. The expansions for intrinsics 
and procedures are described separately. 

Intrinsics ; 

If register (s) R1 and/or R3 have been defined (see 
INPUT, OUTPUT, and WORK macros) , it is assumed they have 
been modified and must be restored from the stack, since 
they are the addressing registers for compiled code. This 
is done via the appropriate LH instruction (s) , or IHL and 
SLL instructions if CC=KEEP was specified, since LH would 
destroy the existing condition code. If CC= (rx) was specified, 
a LR rx,rx is generated to set the condition code. Finally, 
a BCRE or BCR is generated to cause a return to the caller. 

A BCR is generated if SECTOR=0 or INTSIC=INTERNAL was 
specified on the AMAIN macro. 

Procedures ; 

If CC=EQ or CC=NE was specified, the condition code 
bits in the return PSW in the stack are zeroed or set via 
the ZB or SB instruction. Then, an SRET instruction is 
generated with a mask of 7 if the COND operand was omitted, 
or the appropriate mask if it was supplied. 
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• INPUT 









INPUT 


{ register spec 
NONE 


Function: 


type comments 



Defines input interface of primary or alternate entry 
point and symbolic names for the register (s). 

Register Spec : 

One of Rl, R2, R3 , R4, R5 , R6, R7 , FO, Fl, F2, F3, F4, F5, 
F6, or F7. If there is no input (RANDOM, RANG only) , code 
NONE. If there is more than one, use continuation lines for 
each subsequent one (see examples) . 


Type Comments: 




type 

precision 

units 


SCALAR 

SINGLE/DOUBLE RADIANS 


MATRIX (3,3) 
MATRIX (N,N) 
VECTOR (3) 
VECTOR (N) 
INTEGER (N) 
CHARACTER 




Examples; 




col. 16 



col. 72 

4- 



4 

(1) INPUT FO 

SCALAR 

SINGLE RADIANS 


(2) INPUT R2, 

VECTOR (N) 

DOUBLE 

X 

R3 , 

VECTOR (N) 

DOUBLE 

X 

R5 

INTEGER (N) 

SINGLE 



Note: Rl and R3 are illegal inputs for procedure routines, and 

R4 is illegal for intrinsic routines. 




5-16 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02130 • (617) 661-1840 

m 




Expansion ; 


For each register spec supplied, the macro checks for a 
valid register symbolic, or for the special case of NONE. 

If the symbolic register name has not been previously defined, 
an EQU statement is generated to define it*. The macro also 

tests for the illegal use of Rl or R3 for a procedure params-tes 

and R4 for an intrinsic. A global arrayed SETS variable is 
set, which in conjunction with the AMAIN, AENTRY, and ACLOSE 
macros, will guarantee that an INPUT macro has been supplied 
for each entry point (see ACLOSE macro) . 


• OUTPUT 

{ register spec type comments 
NONE 
CC 

Function ; 

Defines output interface of primary or alternate entry point. 

Operand form is identical to that of INPUT macro, with the 
addition of CC as a possibility. This indicates that the 
condition code is the output of the routine. If CC is specified, 
the CC= option of the AEXIT macro must be used. 

Expansion ; 

Same as for INPUT macro, except for special processing for the 
CC operand. If CC is supplied, a global SETB variable is set which 
is tested by the AEXIT macro for consistency with its CC operand. 
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• WORK 

WORK {register spec} 

Fun ction ; 

Defines work registers. 

Expansion ; 

Similar to INPUT and OUTPUT, except that this macro is 
required only if additional register symbols need to be 
defined. 

• ABAL 

ABAL name 
Function ; 

Calls the intrinsic routine "name", valid only in a procedure 
routine. 

Expansion ; 

Generates a BAL 4, name, and an EXTRN statement if "name" 
has not been previously defined. 

• ACALL 

ACALL name 
Function ; 

Calls the procedure routine "name", valid only in a 
procedure routine defined with ACALL— YES option. 

Expansion : 

Generates an SCAL 0, name, and an EXTRN statement if "name" 
has not been previously defined. 
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• AERROR 


AERROR number cause comment 
Function : 

Generates a send error SVC instruction to signal a run 
- _time_error to the FCOS . 


Number : 

The error number. 

Cause Comment ; 

Brief description of the cause of the error. 

Expansion ; 

This macro accumulates, in GBLA variables, all errors sent 
within one assembly. It also checks to see that the error 
number indicates as an argument to AERROR is less than a 
maxii.ium value. The actual code emitted is an SVC in which the 
operand is the label of an SVC parameter list to be emitted by 
the ADATA or ACLOSE macro via the ERRPARMS macro. If any error 
is sent more than once in an assembly, AERROR insures that only 
one SVC parameter list for that error is used. 


• ADATA 

ADATA 

Function ; 

Defines the start of a separate data CSECT for indexable 
constant data. 

Expansion ; 

A CSECT is created with the name #Lnnnnnn where nnnnnn is the 
first 6 characters of the primary CSECT name defined by the AMAIN 
macro. The ADATA macro ends leaving the data CSECT in effect so 
that any user-defined data following the macro call will be part 
of the data CSECT. The ERRPARMS macro is invoked so that any 
possible AERROR SVC parameter lists will appear before the indexed 
data. This is necessary so that the assembler will use the direct 
addressing mode instead of base and displacement. 
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• ACLOSE 


ACLOSE 


Function; 


Terminates the assembly. 


Expansion : 

The macro first invokes the ERRPARMS macro to create the 
AERrSr SVC 

Scrol :e?e“sSprUeliofearertrrPo"t: finally, it generates 

an END assembler statement, terminating the assembly. 


• ERRPARMS 

ERRPARMS 
Function : 

Generates SVC parameter lists for the AERROR macro . 

Expansion; 

This macro is invoked by the ADATA and ,3* 

+-psts a cflobal SETB variable to see if it has already^ 

Len invoked, in which case the 2°^^^^^CSECT IpSr 

it generates a CSECT statement to derine the data 

if «nSe /whele”"SLl” "s\h: pr?maf "ef ry name . ^J^e parameter 

iistf are'generated by t°PP-9 through arrayed^glo^l^SE^ 

is IniSLf^y^'SfLA^rSaSrbecause the parameter lists must be 

ifffaS inaSea data following the optional MATA macro^^ 
is invoked by the ACLOSE macro in case the ADATA macro 
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• WORKAREA 


WORKAREA 

Function ; 

An automatically invoked, user-created macro used to define 
extensions of the stack area for temporary reentrant storage . 

The WORKAREA macro is invoked by the AMAIN macro in procedure 
routines. A system supplied default is invoked in the absence 
— of-a—user?^creat.ed_-macro . 

Expansion ; 

The system WORKAREA macro merely sets a global SETB variable 
which is tested by the AMAIN macro to determine whether the system 
or user macro is being expanded. 
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OBBINAL PAGB I^> 


• AMAIN 


GNAME 


&CSECT ■ 
&ENTCNT 


tlACEO 

AMAIK 

GBLA 

GBLfi 

GBLC 

SETC ' 

SE'IA 


&NAMES {&ENTCKI) 


&INISIC=iNO, 6 ACALL=NO, &SECTOB= 
SENICNT 

&CALLOK,&LlB,&NOEXTRA,SINTERN,&SECT0 
&CSECT, SHAMES (20) 

’SHAME' 

SENICHT+I 
SETC 'SHAME'' 


*♦♦#*:♦#♦♦*!)=;»■*♦***=•■>>*>)■*♦♦*♦♦♦♦***♦***♦♦**********♦****♦****♦******•**♦**♦ 

♦ 

* ' PRIMAEr ENTRY POINT 


") .REG 

•O' ) . BADSECT 



lti^^iliV******=***’f ******* 

6CNAME 

SETC 

• SNAME' 


AIF 

{ • ESECTOR' EQ 


AIP 

('SSECTOB' NE 

SCNAME 

SETC 

'#0* . ' SNAME* 

8SECT0 

SETB 

1 

SCNAME 

CSECT 


SNAME 

DS 

OH 


PRIMARY ENTRY POINT 


.REG • 

SC NAME 
.COMM 
SLID 
SINTEEN 

STACK 

* 


ENTRY 

AGO 

ANOP 

CSECT 

ANOP 

SETB 

SETS 

AIF 

CSECT 

DS 

CS 

DS. 


SNAMS 
• COMM 


(• S3NTSIC 
( • eiNTSIC‘ 
(NOT SLIB) 


EQ 

EQ 


'NO') 

'INTERNAL') 


, SPACE 


ARG2 

ES 

DS 

ARG4 

CS 

ARG5 

DS 

ARG6 

DS 

AHG7 

ES 

* 

END CF 
WORK AH 

STACKBND 

DS 

SCNAME 

CSECI 

USING 

SCAILCK 

SETB 


AIF 

lAL 

.NIST 

NIST 

.SPACE 

SP ACE 

. 

MEXII 

.BADSECT 

MNOIi 

MEND 


STANDARD STACK AREA DEFINITION 
PSW (LEFT HALF) 

E0,R1 
S 2 
E3 • 

E4 

E5 

R6 

R7 

STANDARD STACK AREA 


18H 

F 

2F 


OF END OF COMBINED STACK AREA 

STACKyO ADDRESS STACK AREA 

(• SACALL' EC 'YES') 

(SNOEXTHA OR NOT 6CALLOK) . NIST 

STACK SIZE 
ON ERROR INFO 


0 , STACKEND-STACK SET 

9 (0) ,0 CLEAR 


(LCL DATA PTE) 


4, 'ONLY SECTOH=0 MAY B,E SPECIFIED' 


00000100 
00000 200 
OCG003OO 
000C040O 
00000500 
CO C OO 600 
00000700 
00000800 
OOC00900 
00001000 
00001 100 
00001200 
O0C0130O 
00001 400 
00001500 
00001 600 
00001700 
00001 800 
00001 900 
00002000 
OOC0210O 
00002200 
00002300 
00002400 
00002500 
00C02600 
00002700 
00 002 800 
00002900 
00003000 
00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
00003700 
00003800 
00003900 
000C4000 
00004 100 
0CCC4200 
OOC04300 
0CC04400 
00C04500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
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• AENTRY 


MACEC 

6SAME AEKIBY 

tiBLA &ENTCNT 

GBLE &CALL0K,5NPEXTBA,SLIB 
GBLC SHAMES (20) ' ' 

^^t^i,m4s,^*iif,k!m***m***f*****************’<‘*************** ******* *********** 
* 

* SECCHCAEY BNIEY PdiNT • 

* 

♦ ♦*♦<<♦***♦♦*»♦*♦♦♦»*♦*♦♦**♦*♦♦♦*♦♦>(<♦*♦♦**♦**♦•**♦*******♦**♦***♦*♦***** 


SENTCNT 

SETA 

6ENTCNT+1 




6NA«SS(SENICN!I) 

SETC 'SNAMI* 




SHAME 

DS 

OH 





ENTKY 

SHAME 





AIF 

(NOT SLIB) . SPACE 





AIF 

(BNCEXTEA OE NOT 

SCALLOK) . 

NIST 


lAl 

0,STACKEND-SIACK 

SET 

STACK 

SIZE 

. NIST 

NIST 

9{0),0 CLEAH 

EBBOR 

VECTOR POINTEB 

.SPACE 

SPACE 






MEND 

, 





00000 100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
OOOC140O 
00001 500 
00001600 
00001700 
00001800 
00001900 
00002000 


• AEXIT 



MACRC 


00000 100 

SHAME 

AEXIT 

GCC=,6COND= 

00000200 


GBLA 

6BET 

00000 300 


GBLB 

&LIB,&CCTYPE,6IHTEEN,SSSCT0 

00 000 400 


LCLA 

SMASK 

00000500 

SMASK 

SETA 

7 

OOGCO6O0 

SHET 

SETA 

sr'et+1 

00000700 

****<i**>*t*gg jup jj JO oaLLEB**’*’**’*’**’*'’*’*’^******’^***'*")'’*'*** ♦♦♦*♦*♦♦*♦♦♦♦***** 

000CO8O0 

SHAME 

DS 

OH 

00000900 


AIF 

(•see* EQ ••AND HOT SGCTYPEj.OKl 

00001000 


AIF 

(•see* HE •• AND 6CCTYPE).OK1 

00001 100 


MNOTF 

1 ,* CONFLICTING CC OPERANDS IN OUTPUT AND AEXIT MACBOS* 

00001200 

.OKI 

AIF 

(GLIB) .LIB 

00001300 

. * 

GENERATE EXIT SEQDEHCE FOE IKTEINSICS 

.00001400 


AIF 

(•SCOND^ EQ • •) .OK2 

00001500 


KNOIE 

4,'COND OPERAND INVALID FOR INTRINSIC* 

00001 600 

. OK 2 

AIF 

(•see EQ • •) .LHS 

00001700 


AIF 

( 'see* (1,2) EQ • (R') .LHS 

00001 800 


AIF 

{•see* EQ ' KEEP* ) .IHLS 

00G01 900 


MNOTE 

4, 'INVALID CC OPERAND FOB INTRINSIC* 

00002000 

.LHS 

AIF 

(STNTERN) .SKIP1 

00002100 


AIF 

(NOT D'R3) .SKIPS 

00002200 


LH - 

3,9(0) RESTOEE LOCAL DATA BASE 

00002300 

. SKIPS 

AIF 

(SOI D‘R1) . SKIP1 . 

000024C0 


LH 

1,5(0) RESTORE PROGRAM DATA BASE 

00002500 

.SKIP1 

AIF 

(•see* EQ • •) . BCRE 

00C02 600 

SR 

SETC 

•SCC(1) • 

00002700 


AIF 

{•SR* NE •RT AND *&R* NE *R3').LROK 

00002800 


MNOTl 

4, 'INVALID REGISTER IN CC= OPERAND' 

00002900 

. LBOK 

LB 

SR, SR SET CONDITION CODE ' * 

00003000 


AGO 

. BCRE 

00 003100 


I 
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AEXIT (continued) 


. IHLS 


.SKIPR3 


. BCHE 


AIF 

AIF 

IHL 

SLL 

AIF 

IHL 

SLL 

AN OP 

AIF 


(BINTEHN) .BCEE 
{NOT D’B3) .SKIPB3 

R3,9(0) LOAD B3, PRESERVING CC 

H3,16 position in UPPER HALFWORD 

(NOT D'RI) . ECRE 

R 1,5(0) LOAD HI, PRESERVING CC 

ai,16 POSITION IN UPPER HALFWORD 


(&SECT0 OR SINTEEN).BCK 
SRETSRET BCRE 7,4 RETURN TO CALLER 

m’^***il^’^**’f**^’¥*>t‘** ****** ********4^*¥*****il‘******’t^***************’^ ******* 


OOC03200 
C0C03300 
00C03400 
00003500 
00003600 
00003700 
000018CO 
00CC3 900 
00C040C0 
00 0 04 100 
00004200 



SPACE 


000C43C0 


HEXII 


00004400 

. BCR 

ANCP 


00004500 

$ RETS RET 

ECR 

7,4 RETURN TO CALLER 

OOCC460O 

:^:tl*^^**:*iilL******^** *********** ****************************************** 

00004700 



SPACE 

OOQ04BOO 


ME XII 


00G04900 

.LIB 

AIF 

(•see’ EQ ''OR 'SCOND’ EQ •'). OK3 

00005000 


MNOTE 

4,'CC AND COND OPERANDS ABE MUTUALLY EXCLUSIVE' 

00005100 

.0K3 

AIF 

(' see EQ • ') .NOCC ■ 

00005200 


AIF 

{•see EQ ’EQ’I.Z'B 

00005300 


ATF 

(’RCC* EO 'NE’T.SB 

flono54on 


MNOTE 

4, 'INVALID CC OPERAND FOE PROCEDURE ROUTINE' 

000C5500 

. ZB 

ZB 

1(0),X'COOO’ SET PSW CC TO 00 (EQ) 

00005600 


AGO 

.NCCC 

00005700 

• SB 

SB 

1(0),X'C000* SET PSW CC TO 11 (LT (NE) ) 

00005800 

. NOCC 

AIF 

(T'SeOND NE ’N'). CONDTST 

00CC5900 

SMASK 

SETA 

SCOND 

000C6000 


AGO 

.SRET 

00006 100 

.CONDTST 

AIF 

(•SCOND* EQ ” ) .SRET 

00 006 2 CO 

s'mask 

SETA 

1 . . ■ 

00006300 


AIF 

('SCOND' EQ 'H' OR 'SCOND* EQ 'O'). SRET 

00006400 

SMASK 

SETA 

2 • 

00006500 


AIF 

{'SCOND' EQ 'L' OR 'SCOND' EQ *M').SRET 

coo 06 6 00 

SMASK 

SETA 

3 

00 006 7 CO 


AIF 

('SCOND* EQ 'NE* OR 'SCOND* EQ 'NZ').SEET 

OOQ06800 

SMASK 

SETA 

4 

00006 f)00 


AIF 

('SCOND* EQ 'E' OK 'SCOND* EQ 'Z') .SRET 

00CO7000 

SMASK 

SETA 

5 

000C71C0 

AIF 

(•8CGKD' EC ’HE' OR ’SCOND' EQ • NL ’ OR 'SCOND' BQ ’NM') .SRET 

00007200 

SMASK 

SETA 

6 

00007300 

AIF 

('SCCND' EQ *LE' OR 'SCOND' EQ *NH' OH 'SCOND' EQ 'KO'I.SRET 

00007400 

SMASK 

SETA 

7 

00007500 


MNOTE 

4, 'INVALID COND OPERAND' 

00007600 

.SRET 

ANOP 


Q000770C 

SRETSEET 

SHE! 

6MASK,0 RETURN TO CALLER 

00007800 


***^******* *********** *********itf***********:^**^iHt************m:^*^:^T^,^*^^ 

SPACE 
MEND 


00007 900 

ooocaooo 

00008100 
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INPUT 


BACEC 

INPUI 

GBLA 

GBLfl 

AIF 

BINPDK6ENTCNI) 


&X 

SENTCiMT 

6INPUT (20) ,6LIB 
(N*6SYSLIST EQ 0) .EMiTY 
SETS 1 


BI 

AIF 

('6X' EQ 'NONE') .SPACE 

SETA 

1 

BLAST 

SETA 

N» ESYSLIST 

.LOOP 

AIF 

(K'BSYSLIST (BI) NE 2). 

BR 

SETC 

' SSYSLIST (51) • 


AIF 

(' BR* (1,1) NE 'F* AND 


AIF 

('BE' EQ 'RO'). BA DREG 


AIF 

(ELIB AND ('SB* EQ 'R1 


AIF 

(NOT GLIB AND ' BH ' EQ 


AIF 

(D'BR) .NEXT 

BN 

SETC 

•BE* (2,1) 

BR 

EQU 

BN 

.NEXT 

ANOP 


BI 

SETA 

SI + 1 


AIF 

(61 LE BLAST) . LOOP 

.SPACE 

SPACE 

MEXII 

. BA DR EG 

MNOTE 

4 , * ILLEGAL REGISTER S: 


AGO 

.NEXT 


.INVEEGl 


INVEEG2 


EMPTY 


MNOTE 

AGO 

MNOTE 

AGO 

KNOTS 

MEND 


4,^GR invalid input fob procedure ROUTINE' 
.NEXT 

4, 'R4 INVALID INPUT FOR INTRINSIC 
.NEXT 

4,'CPEBAND REQUIRED' 


00000100 
00000 200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001 100 
00001200 
00001300 
00001 400 

00001 500 
00001600 
00001700 
00001 800 
00001900 
00002000 
00002100 
000021 10 
00002200 

00002 300 
00002400 
00002500 
00002600 
00002700 
00002800 
00CC2900 
00003000 
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RBPRODUCIBILrrY OF 
ORIGINAL PAGE IS POOR 


iL 




OUTPUT 


MACEC 
CUIP'aT BX 

6^5^20) ,BCCTYPE, &L^^ 

jlO (N'63YSLISI EQ 0) .EMPTY 

60 »IPI.I( 6 EJIC»« .SOKf) .SPJCE 

“(r'eSPS^SkSI) »E 2).iABEES 
•&SYSLIST(&I) ' 

CGE' eq 'CCM.CCTYPE 
(•&E* (1#1) NE 'E' and 
{*8E* EQ 'R0») .BADSEG 

Bq"’e 4V) .iKVEE52 

(D* EH) . NEXT 
•SR* (2, 1) 


SI 

BLAST 

.LOOP 

SR’ 


SETA 

SETA 

Air 

SETC 

AIF 

Air 

AIF 

AIF 

AIF 

AIF 


•SR' (1 r1) 


•E').BADREG 

OR *6R* E2 'S3*) ) . INVEEGI 


SN 

SETC 

SB 

EQU 

.NEXT 

ANOP 

SI 

SEIA 

AIF 

.SPACE 

SPACE 
ME XII 

. BADE EG 

MNOTE 

AGO 

.CCTYPE 

ANOP 

SCClYPE 

SETB 

AGO 


SN 

61 + 1 
(SI RE 


6LAST) .LOOP 


4, . ILLEGAL REGISTER SPECIFICATION - 6SYSLIST (SI) * 
.NEXT 


. IKVREGI 

. inveeg: 
.empty 


MROTE 

AGO 

MNOII 

AGO 

MNCIE 

KERB 


.NEXT 

4,»6R INVALID OUTPUT 
NEXT 

4**R4 INVALID OUTPUT 
N EXT 

4 • OPERAND BEQUIHED.' 


foe reoceddrs routine* 
foe intrinsic’ 


OOOOQ1CO 
00000 200 
O0CC0300 
000 00 4 CO 
00000500 
000C06C0 
00000700 
00000800 
00000900 
00001 000 
00001 IOC 
00001200 
00C01 300 
CO 001 400 
00C01500 
00001600 
000017CO 
■ 00001800 
00001900 
000020CO 
00002100 
00002200 
00002210 
00 002 3 00 
00002400 
00002500 
000C2600 
00CC2700 
00002800 
00002900 
. OOC03000 

00C03100 
00C03200 
00003300 
00003400 
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MACRO 

WORK 

sx 


GDLB 

SLIB,6N0EXTBA 


JilF 

(•SX* EQ 'NONE') .SPACE 


SETA 

1 ‘ 

6LAST 

SETA 

N'SSYSLIST 

. LOOP 

AIF 

(K'6SYSLIST{SI) NE2).BADREG 

&R 

SETC 

* 5SYSLIST (61) ' 


AI? 

{•8HM1,1) NE *F' AND •6B*(1#1) NE 


AIF 

(•6E' EQ *R0») .BADREG 


AIF 

(•6E* NE *F6*) .TESTD 

MNOTE 


HARNING: F6 MOST BE PBESEHVED ACROSS 

.TESTD 

AIF 

(D‘6R).NBXT 

6N 

5EIC 

•6S'(2,1) 

&E 

EQU 

6N 

. NEXT 

AN OP 


SI 

SETA 

SI+1 


AIF 

(81 IE BLAST), LOOP 

.SPACE 

SPACE 

■ . 

. BADfiEG 

HEXII 

MNOTF 

4,* ILLEGAL EEGISIER SPECIFICATION ■ 


AGO 

.NEXT 


00OCO1OO 
00000 200 
00000300 
00000 itoo 

00000500 
00000600 
00000700 
Q0C008O0 
00000900 
00001000 
ooocnoo 
00001200 
000013 00 
00001UCO 
00001500 
00001600 
00001700 
00001 800 
00001900 
00002000 
00002100 
C0002200 
00002300 


• 

ABAL 





MACHO 

• 


00 000 100 

8NAME 

ABAL 

6P 


00000200 


GBLB 

8LIB 


000C025O 


AIF 

(6LIB) .OK 


00000 300 


MNOTE 

4, 'A BAL MACRO 

ILLEGAL FROM INTRINSIC* 

00000400 


MEXIT 



00000500 

.OK 

AIF 

(D*6P) .SKIP 


00000600 


EX TEN 

8P , 


00000700 

.SKIP 

ANOP 



00000800 

SNAME 

BAL 

4,8P 

CALL INTRINSIC 

00000900 


MEND 



00001000 
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ACALL 





«ACBC 


00000100 

&MAHE 

ACALL 

6P 

00000 200 


6BLB 

SCALLOK 

00000300 


AIF 

(5CALLOK) .CALL 

00000400 


MNOTE 

12.*ACALL OPTION NOT ‘SPECIFIED IN AMAIN OR 

INTSIC=YES SPX00000500 



ECIEIED* 

00000600 


MBXII 


00 COO 700 

.CALL 

AIF 

(D'SP).SKIP 

00000800 


EXTEN 

6P 

00000900 

. SKIP 

ANOP 


00001000 

SNAHE 

SCAL 

O.SP CALL PROCEDURE ROUTINE 

00001100 


HEED 


00001200 


• AERROR 



HACRC 


OOOGD 100 

&NAME 

AERROR 6NUM,6GR0UP=4 

00000200 


GULA 

6ERRCNT,6EHRNUHS(10) , 6ERRGRPS (1 0) 

C0000 3GO 


LCLA 

61 

00 0004 00 


AIF 

{6NUM GT 62). BADNUM 

00000500 

&1 

SETA 

6ERRCNT 

00000600 

. DUEL OOP 

AIF 

{61 LE 0) .NEHBRR 

00000700 


‘AIF 

(6NUM EC 6EERNUMS(6I) AND 6GR0UP EQ 6EERGRPS (61) ) . DUP 

00000800 

61 

SETA 

61-1 

000009CO 


AGO 

.DUELOOP 

00001000 

■. NEHEER 

ANOP 


C0001 100 

6EEBCNT 

SETA 

6ERECNTH 

00001 2C0 

61 

SETA 

6ERECNT 

0GC01 30C 

CEESNUMS (61) SETA 6NUM 

00001 400 

6EERGHPS(6I) SETA 6GSOUE 

C000150C 

. DUP 

ANOP 


C00C1 600 

+ :jo(c ♦ + J y S U E 

SEND ERROR SVC****************************************** 

C0001700 

6NAHE 

SVC 

AEHROR6I ISSUE SEND ERROR SVC 

00001800 

»*»**’^*‘**SENB ERSOH SVC RETURNS CONTROL FOR STANDARD FIXUP**'*'*'*******#* 

00001 9G0 


HEX IT 


00002000 

. BADNUM 

MNOTE 

12, 'ERROR NUMBER GREATER THAN 62' 

00002100 


MEND. 


00002200 


i 

t' : 

• ADATA 


MACKC 

ADATA 

GBLC SCSECT 

^ + QS JJCT*** '<■*♦* ♦** ******f****************************'^^****** 

EEfiPARMS ■ 

SDCSECT SETC • *l «.• SCSECT* { 1, 6) 

6DCSS.CT CSECI 
MENC 


OOCCClOO 
00000 200 
00CC030O 

ooooouoo 

00000500 

00000600 

00000700 

OC000800 
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ACLOSE 




61 

. LOOP 

.INOK 

.OaTOK 

61 


MRCEO 

ACLOSE 

GBLA 6ENTCNT 

GBLB 6INPUT (20) ,6OUTPUT(20) 

GHLC 6NAMES(20) 

EHSPARMS 
SETA 1 

AIF (6INPOT (61) ) .INOK 

WNOTE 1, ’INPUT NOT SPECIFIED FOR 6NAMES(6I)' 
AIF (60UTPUT(6I)) .OUTOK 

MNOIE 1,’ OUTPUT HOT SPECIFIED FOB 6NABES (61) * 
ANOP 

SETA 61+1 

AIF (61 LE 6ENICNT) .LOOP 

END 

MEND 


00000 100 
00C00200 
COOC330O 
000004CO 

00000 500 
00C006OO 
000CO70O 
C00008C0 
000C0900 
00001COO 
00CC1 100 
00001200 
00001300 

00001 400 
00001500 
00001600 


• ERRPARMS 


6D0NE 


MACEC 

ERRPARMS 

GBLA 8ERKCNI,6EBENOMS(10) , 6EERGEPS (10) 

GBLB 6DCNE 

GBLC 6CSECT 

LCLA 61 

LCLC 6S 

AIF (6DCNE) . MEND 

SETB 1 

LTCEG 


♦ ¥w#eREOH parameter are a**** *♦♦•*♦ ♦**•******< ***•♦** ♦*♦*♦*** 

AIF (6EEHCNT EQ 0) .NOEEROH 
SEIC » #L* , • 6CSECI' (1,6) 

CSECT 

AIF (6EBRCNT EQ 1) . MSG 
SETC 'S' 

MKOIE 6CSECT SENDS THE FOLLCHING EER086S* 

ANOP 

SETA 61+1 
SPACE 2 

MNOTE »■*<*+ ERROR NUMBER 6ERRNUMS(6I) IN GROUP 6EEEGRPS (61) ' 
SPACE 1 

AERROE6I DC H'2C' SVC CODE FOR SEND ERROR 

DC X (6EREGRPS (81) ■*‘256fCERRNUMS (61) ) 8 BIT GROUP AND NUMBER 
AlF (81 LT 6ERRCNT) .LOOP 
AGO .COMMON 

. NCEHROR MNOTE : « NO ERRORS SENT IN 6CSECT' 

.COMMON ANOP . 

OF ERBOE PASAMSTSR li?,Eh************'^*************** 

. BEND BEND 


6ECSECT 

6SCSECT 

6S 

. MSG 
.LOOP 
61 


00000 100 
00000200 

00000 300 
00000400 
00000500 
00C00600 
00000700 
00000800 
00000900 
O00C1000 
00G01 100 
00001200 

00001 300 
00001400 
00001500 
00001 6C0 
00001700 
00001 000 
000019C0 
00002COO 
00002100 
00002200 
00 C 02 3 00 
00 C 02400 
00002500 
00 002 600 
OOOC2700 
00002800 
0OG0290O 
00003000 
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WORKAREA 



SMOEXTB& 
♦ ■ 


HACBC 
WOBKABEA 
GBLB &NCEXTBA 
SETS 1 

NO ADDITIONAL STACK 


HSND 


ST0HAG2 EEQUiaSD FOB THIS BOUTINE 


00 000100 
00000200 
00000 300 

oooooaoo 

00000500 

Q0000600 


-P001T 

nuiGWAt^ f A' . 
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5.3 Library Routine Descriptions 

This section contains descriptive material for all 
routines in the HAL/S-FC runtime library. The routines have 
been grouped into seven categories. The routines within each 
category are described in one subsection as ful.'-ows: 


5.3.1 

Arithmetic 

5.3.2 

Algebraic 

5.3.3 

Vector/Matrix 

5.3.4 

Character 

5.3.5 

Array Functions 

5.3.6 

Miscellaneous 

5.3.7 

Remote Operations 


The documentation is based upon the "load module" as 
a basic unit. A load module is the entity created by a 
single invocation of the AP— 101 linkage editor. It has a 
primary member name and may have up to 16 alias names. The 
primary and alias names indicate entry points to the module. 

For each load module in the runtime library, and LRD 
form will be found in the succeeding sections. The basic 
LRD form is shown in Figure 1. The circled numbers in the 
figure are explained below. 

- The boxed area of the form ( (J) - (z) below) contains 
information relating to qualities and attributes of 
the load module apart from any of its entry points. 

(^- In the upper right portion of every routine or 

entry point description, the name of the primary 
entry point will be seen. This serves: as a quick 
reference aid in locating the documentation for a 
load module. 


5-31 


INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 



©- 
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©- 

©- 


Source Member Name - The name of the member in 
the assembler language source PDS of the library 
Thxs name is always the same as the primary 
entry point name. ^ ^ 

Size of Code Area - Each library module contains 
one code CSECT, regardless of the number of en?ry 
points. This number is the count of halfwords 
of code -chat would be used if the module were 
loaded. A module will be loaded if any one of 
its entry points is referenced. 

a module is not an intrinsic 
(see {§) ) , It will have a requirement for runtime 
stack space. The minimum required will be one 

stack frame (18 Hw) . The number listed 
on the form indicates the module's total stack 
requirement. If the module is an intrinsic, zero 
will be indicated. Individual entry points in 

?hLelorf different stack requirements, 

of Se module! requirement is an attribute 

Data CSECT size - If the module contains a #L CSECT 
Its size IS indicated. Otherwise, a zero is indicat^^d 
This ni^er _ shows the number of halfwords of data 
area that will be used if the module is loaded., 

Intrinsic/Library - The appropriate box is marked 

oS^all^ltb^^ are either all intrinsic’ 

or all library, hence this is a quality of the 

module. Sector 0 routines are noted here. 

Other modules referenced - A list of other load 
modules referenced in EXTRN statements by this 
load module. if this module is loaded, the 
indicated modules will also be loaded. 

Entry point descriptions - Following the aacrreaatc^ 
attributes of the module in 0-7 abo^e? thS ^ ^ 

descriptions of specific entry points follow. 

Entry Name - The name of the code GSECT* in 

tht primary entry for the module in 

tne llbraiy load module PDS. 


ENTRY label in the case of Sector 0 routines. 
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Function - A brief prose description of what this 
entry point does. 

Invoked By - Entry points may be referenced directly 
from compiler-emitted code, from other library modules, 
or both. The appropriate boxes are marked. If the 
upper box is marked, an example of a HAL/S construct 
which results in reference to the entry point is 
shown. If the lower box is marked, the names of 
other modules which refer to this entry point are 
listed. If any of the other modules listed here are 
loaded, this module will also be brought in. 

Execution Time - The time, in microseconds, needed 
to perform this entry point's function. These times 
are obtained from examinations of trace listings of 
simulations of the execution of the particular library 
routine or entry point on Version 11.3 of the GPC 
simulator in detailed timing mode. Times include times 
for referenced routines unless specifically stated. 

Input Arguments - The data that the entry point 
receives as input is listed. "Type" indicates the 
nature of the data (integer, scalar, etc.), 

"Precision", where applicable, is generally SP for 
single precision and DP for double precision. 

"How Passed" indicates the method of communication 
of the data. In the case of DP scalar arguments, 
this field may indicate the firs^ floating point 
register of an even/odd pair. "Units", when 
applicable, specifies the units presiimed for an 
argument. 

Output Results - The data that is considered the 
"answer" from the entry point. The fields are 
used in the same way as in . 

Errors Detected — If invocation of this entry point 
can result in a Send Error SVC being executed, the 
error #, cause, and standard fixup for all such 
errors are indicated. 

Comments - Any special behavior of this entry point 
or notes to users are entered here. 

Algorithm - The steps taken by the entry point to 
produce its results are shown. When appropriate, 
references are made to other entry point descrip- 
tions for further documentation. 
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In addition to the basic LRD form of Figure 1, 
which documents module attributes and the primary entry 
point, an extension LRD form is used to document additional 
alias entry points within a module. The extension LRD 
is shown in Figure 2. The circled numbers are explained 
below: 


18) - 


The primary entry name of the module is displayed. 
This is the same, name as is displayed in the 
basic LRD form (l) to which this extension 
form is appended. 


19)- 


Secondary Entry Name - The name of the secondary 
entry point being documented. 


20)- The remainder of the extension form is identical— 
to the primary entry point description entries 
through ^ , and describe the function and int^- 

face to this entry. 
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Primary' Entry Names 
Functions 


Invoked bys 

|"~{ Compiler emitted code for HAL/S construct of the form; 


n Other Library Modules; 
Execution Time (microseconds) 


Input 2irgmients ; 
Type 


Precision 


How Passed 


Units 




Output Results; 
Type 


Errors Detected: 
Error # 


Precision 


How Passed 


Units 


Cause 


Fixup 


Comments ; 
1^. AlgoritlTiu; 


Figure 1; Basic LRD Form 
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Secondary Entry Name: 
Function: 


Invoked by: 

□ Compiler emitted code for HAL/S construct of the form: 

□ Other library modules; 


Execution Time (microseconds) ; 


Input Arguments : 

Type Precision 


How Passed 


Units 


Output Results: 
T)2>e 

Precision 


How Passed 

Units 

Errors Detected; 
Error # 


Cause 

Fixup 



Comments : 


Algorithm; 


Figure 2; Extension LED Form 
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The following table shows the routines which are a«e-irrr«a 
to each group. The table contains a list of piiSa?? an^ ® 
secondary entry points with each secondary indente^^undfr 
_ s primary entry. With each primary entry point basic 
descriptive information is shown along with the sizes of 
he csects in the module and the module's stack requirement 
entry shows the timing information for the\ntry 
point. Secondary entry points have only the descriptive 

entry. In cases^where 

the timing information is too involved to be listed in tL 
space available, the notice "See LRD" indicates that the 
detailed write-up of the module (on an LRD form in the 
proper subsection) should be referenced. In all cases 

dafSfTf the LRDs anf luither 

fho routines' performance can be found in 

those detailed descriptions. 
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ARITHMETIC ROUTINES (section 5.3.1) 


ENTRY 

FUNCTION 

PREC . 

CODE 

DATA 

STACK 

TIME 

DMOD 

MOD (DrD) 

D 

42 

2 

0 

74.6 

DMDVAL 

MIDVAL (D,D,D) 

D 

20 

0 

18 

41.4 

EMOD 

MOD(S,S) 

S 

36 

2 

0 

46.6 

IMOD 

MOD (I, I) 

I 

20 

2 

0 

29.4 

HMOD 

MOD(H,H) 

H 




29.4 

IREM 

REMAINDER (I, I) 

I 

14 

2 

0 

27.0 

HREM 

REMAINDER (H,H) 

H 




27.0 

ROUND 

ROUND (S) 

I 

84 

2 

0 

39.0 

CEIL 

CEILING (S) 

I 




See LRD 

DCEIL 

CEILING (D) 

I 




See LRD 

DFLOOR 

FLOOR (D) 

I 




See LRD 

DROUND 

ROUND (D) 

I 




33.8 

DTOI 

S ^ I 

I 




33.8 

DTRUNC 

TRUNCATE (D) 

I 




28.6 

ETOI 

FLOOR 

TRUNC 

s I 

FLOOR (S) 
TRUNCATE (S) 

I 

I 

I 


m, 

!§■ 

Sg 

V- 4 TN 

^ 0 


39.0 
See LRD 
31.4 





0 







0 H 

tSJ^ 





- 





•a'; ■ 
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ALGEBRAIC 


ENTRY 

FUNCTION 

PREC. 

ACOS 

ARGCOS(S) 

S 

AS IN 

ARCSIN(S) 

S 

ACOSH 

ARCCOSH(S) 

S 

ASINH 

ARCSINH(S) 

S 

ATANH 

ARCTANH(S) 

S 

DACOS 

ARCCOS (D) 

D 

DAS IN 

ARCS IN (D) 

D 

DACOSH 

ARCCOSH(D) 

D 

DASINH 

ARCSINH(D) 

D 

DATANH 

ARCTANH (D) 

D 

DATAN2 

ARCTAN2(D,D) 

D 

DATAN 

ARCTAN(D) 

D 

DEXP 

EXP (D) 

D 

D1.0G 

LOG(D) 

D 

DPWRD 

D**D 

D 

DPWRI 

D**I 

D 

DPWRH 

D**H 

D 

DSIN 

SIN(D) 

D 

DCOS 

COS(D) 

D 

DISNH 

SINH (D) 

D 

DCOSH 

COSH(D) 

D 

DSQRT 

SQRT(D) 

D 

DTAN 

TAN(D) 

D 

DTANH 

TANK (D) 

D 



ROUTINES 

(Section 

5.3.2) 


CODE 

DATA 

STACK 

TIME 

102 

2 

24 

See LRD 




See LRD 

36 

2 

20 

See LRD 

64 

0 

20 

See LRD 

58 

2 

18 

See LRD 

150 

2 

18 

See LRD 




See LRD 

42 

2 

22 

See LRD 

94 

0 

22 

See LRD 

90 

2 

18 

See LRD 

194 

26 

18 

248.4 




237.3 

154 

66 

18 

290.5 

140 

2 

22 

282.2 

38 

4 

22 

See LRD 

40 

2 

18 

See LRD 




See LRD 

102 

62 

20 

267.0 




261.8 - 264. 

130 

2 

22 

See LRD 




422,6 

70 

2 

26 

345.2 

164 

4 

30 

302.2 

94 

0 

22 

See LRD 




Of- 


ALGEBRAIC ROBTIiCS (CONTINUED) (section 5 . 3 . 2 ) 


ENTRY 

FUNCTION 

PREC. 

CODE 

DATA 

STACK 

TIME 

EATAN2 

ARCTAN2 (S,S) 

S 

132 

10 

18 

120.0 

ATAN 

ARCTAN(S) 

S 




116.5 

EPWRE 

S **S 

S 

^32 

4 

22 

See LRD 

EPWRI 

S**I 

S 

38 

2 

18 

See LRD 

EPWRH 

S **H 

S 




See LRD 

EXP 

EXP(S) 

s 

108 

2 

18 

141.8 

IPWRI 

I**T 

I 

46 

2 

18 

See LRD 

HPWRH 

H**H 

H 




See LRD 

IPWRH 

I**H 

I 




See LRD 

LOG 

LOG(S) 

s 

90 

2 

18 

140.5 

SIN 

SIN{S) 

s 

70 

30 

0 

123.6 - 124, 

COS 

COS(S) 

s 




122.1 - 123. 

SINE 

SINH(S) 

s 

80 

2 

18 

See LRD 

COSH 

COSH(S) 

s 




228.9 

SQRT 

SQRT(S) 

s 

48 

14 

0 

88.3 

TAN 

TAN(S) 

s 

112 

4 

20 

164.0 

TANH 

TANK CS) 

s 

56 

0 

18 

See LRD 


A * 




:.-^H 








i' : ■ 
\ ■ 
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VECTOR/flATRIX ROUTINES 

(Section 

5.3.3) 



ENTRY 

FUNCTION 

SIZE 

PREC. CODE 

DATA 

STACK 

TIME 

I4M0DNP 

Scalar to Partitioned 
Matrix Move 

n ,m 

D 

12 

0 

0 

6.8+n(4.0+8.0m) 

MMOSNP 

II 

n,m 

S 

10 

0 

0 

6. 4+n (4. 4+6. 4m) 

MT41DNP 

Partitioned Matrix Move 

n,m 

D 

18 

0 

0 

10. 8+n (5. 4+12. 2m) 

MMISNP 


n,m 

S 

16 

0 

0 

10.8+n(5.4+9.4m) 

i-lMlTNP 

ft 

n,m 

D-S 

16 

0 

0 

10.4+n(5.8+10.6) 

MMIWNP 

If 

n,m 

S-D 

18 

0 

0 

13 . 6+n { 5 . 0+11 . Om) 

MD-16DN 

Matrix Multiply 

(m,n) , (n,£) 

D 

42 

0 

0 

22.2+m{10.8+£(21.2+27.n) ) 

MM6D3 

M 

(3,3) , (3,3) 

D 

32 

0 

0 

671.6 

MM6SN 

n 

(m,n) , (n,£) 

S 

40. 

0 

0 

22.2+m(10.8+£(20.2+18.0n) ) 

MM6S3 

11 

(3,3) , (3,3) 

S 

24 

0 

0 

409.6 

I4M11DN 

Matrix Transpose 

n,m 

D 

16 

0 

0 

8.0+m(5.8+12.2n) 

MM11D3 

ri 

3,3 

D 

22 

0 

e 

93.6 

MMllSN 

II 

m,n 

S 

16 

0 

0 

8 . 4+m(5 . 8+9 . 4n) 

MM11S3 

1? 

3,3 

S 

18 

0 

0 

. 71.8 

MM12DN 

Matrix Determinant 

n,n 

D 

150 

0 

22 

See LRD 

MM12D3 

II 

3,3 

D 

44 

0 

18 

229.6 

MM12SN 

II 

n ,n 

S 

138 

0 

20 

See LRD 

MM12S3 

11 

3,3 

S 

26 

0 

18 

116.0 

MM13DN 

Matrix Trace 

n ,n 

D 

10 

0 

0 

12. 0+10. 2n 

MM13D3 

If 

3,3 

D 

8 

0 

0 

19.8 

MM13SN 

II 

n,n 

S 

8 

0 

0 

8 . 8+6. 2n 

MM13S3 


3,3 

s 

4 

0 

0 

9.8 




(CONTINUED) (Section 5.3.3) 


PSEC. CODE DATA STACK TIME 

2 3 

D 258 2 20 63. 0+129. 5n+43. On +65. 4n 

D 128 2 18 795.4 

2 3 

S 242 2 20 52 . 0+39. 2n+10.5n +54. 6n 

S 80 2 18 458.8 

2 

D 18 0 0 15. 6+5. On+11. 2n 


s 

14 

0 

0 

D 

86 

0 

20 

D 




S 

78 

0 

20 

S 




D 

24 

0 

0 

D 

22 

0 

0 

S 

18 

0 

0 

s 

20 

0 

0 

D 

26 

0 

0 

D 

24 

0 

0 

S 

22 

0 

0 

s 

16 

0 

0 

-D 

20 

0 

0 

D 

22 

0 

0 

s 

20 

0 

0 

s 

20 

0 

0 

D 

6 

0 

0 

D 

6 

0 

0 


% ■■ 


10. 0+5.2n+9. 6n^ 

See LRD 
See LRD 
See LRD 
See LRD 

12. 0+m (19. 3+26. On) 
304.4 

11.2+m(11.0+18.4n) 

137.6 

23.2+m(23.2+27.6n) 
227.8 

12.4+m(19.2+18.2n) 
141.2 

12. 8+n (5. 8+24. 4m) 
251.0 

14. 2+n (5. 8+14. 4m) 

160.6 
7 . 0+5 . In 
7.0+7.2n 


4 >> 


EBPBODUCIBILITY- nr TE 
OEIGINAL PAGE ifci P(k)Ti 
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VECTOR/MATRIX ROUTINES (CONTINUED) (section 5 . 3 . 3 ) 


ENTRY 

FUNCTION 

SIZE 

PREC. 

CODE 

DATA 

STACK 

TIME 

WOSN 

Scalar to Vector Move 

n 

S 

6 

0 

0 

7 . 0+5 . 6n 

WOSNP Scalar to Column Vector Move 

n 

s 

6 

0 

0 

7. 0+6. On 

WIDN 

Vector Move 

n 

D 

. 8 

0 

0 

4.2+10. 2n 

W1D3 

II 

3 

D 

14 

0 

0 

25.2 

W1D3P 

Column Vector Move 

3 

D 

18 

0 

0 

See LRD 

WlDNP 

tl 

n 

D 




See LRD 

VVISN 

Vector Move 

n 

S 

8 

0 

0 

4.2+7.8n 

W1S3 

II - 

3 

S 

8 

0 

0 

16.8 

W1S3P 

Column Vector Move 

3 

S 

14 

0 

0 

See LRD 

WISNP 


n 

S 




See LRD 

WlTN 

Vector Move 

n 

D-S 

8 

0 

0 

4.2+9. On 

WIT 3 


3 

D-S 

12 

0 

0 

21.2 

W1T3P 

Column Vector Move 

3 

D-S 

14 

0 

0 

See LRD 

WITNP 

»» 

n 

-D-S 




See LRD 

WIWN 

Vector Move 

n 

S-D 

10 

0 

0 

8 . 4+9 . On 

W1W3 

II 

3 

S-D 

12 

0 

0 

23.8 

W1W3P 

Column Vector Move 

3 

S-D 

18 

0 

0 

See LRD 

WIWNP 

II 

n 

S-D 




See LRD 

W2DN . 

Vector Add/Matrix Add 

n 

D 

14 

0 

0 

8 . 8+20 . 6n 

W2D3 

Vector Add 

3 

D 

22 

0 

0 

51.4 

W2SN 

Vector Add/Matrix Add 

n 

S 

10 

0 

0 

8 . 2+13 . 6n 

W2S3 

Vector Add 

3 

S 

12 

0 ■ 

0 

29.6 

W3DN Vector Subtract/Matrix Subtract 

n 

D 

16 

0 

0 

6.0+22.7n 


VECTOR/HATRIX ROUTINES (COflTItlUED) (section 5.3.3) 


ENTRY FUNCTION SIZE 

VV3D3 Vector Subtract 3 
W3SN Vector Subtract/Matrix Subtract n 
W3S3 Vector Subtract 3 
W4DN Vector or Matrix Times Scalar n 
W4D3 Vector Times Scalar 3 
W4SN Vector or Matrix Times Scalar n 
W4S3 Vector Times Scalar 3 
W5DN Vector or Matrix Divided by Scalar n 
W5D3 Vector Divided by Scalar 3 
W5SN Vector or Matrix Divided by Scalar n 
W5S3 Vector Divided by Scalar 3 
W6DN vector Dot Product n 


Vector or Matrix Negate 
Vector Negate 
Vector or Matrix Negate 
Vector Negate 
Vector compare 
Vector or Matrix Compare 
Vector Compare 
Vector or 'Matrix Compare 


ppt:c. 

CODE 

DATA 

STACK 

TIME 

D 

24 

0 

0 

55.4 

s 

10 

0 

0 

8.4+13. 6n 

s 

12 

0 

0 

29.6 

D 

. ■ 8 

0 

0 

7.0+23.4n 

D 

18 

0 

0 

68.4 

s 

8 

0 

0 

7 . 0+14. On 

s 

12 

0 

0 

38.4 

D 

16 

2 

0 

37 . 0+24. 2n 

D 

26 

2 

0 

98.4 

S 

14 

2 

0 

7. 2+18. On 

S 

18 

2 

0 

50.6 

D 

12 

0 

0 

16. 4+25. 4n 

D 

16 

0 

0 

71.8 

S 

12 

0 

0 

15.2+16. 8n 

S 

10 

0 

0 

41.8 

D 

8 

0 

0 

7 . 0+11. 4n 

D 

18 

0 

0 

32.4 

S 

8 

0 

0 

7. 0+9. On 

S 

12 

0 

0 

23.4 

D 

D 

12 

0 

0 

■ See LRD 
See LRD 

S 

c 

12 

0 

0 

See LRD 
See LRD 


^ '' 
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VECTOR/MATRIX ROUTINES 

entry function size 

W10D3 Unit Vector 3 

WlODN " ^ 

W9DN Vector Magnitude n 

W9D3 " 3 

W10S3 unit Vector 3 

WlOSN " 

W9SN Vector Magnitude n 

W9S3 " 3 

VX6D3 Vector Cross Product 3 

VX6S3 " 3 


(CONTINUED) (Section 5.3.3) 


PREC. 

CODE 

DATA 

STACK 

TIME 

D 

56 

2 

20 

402.7 

D 




259.7+47.8n 

D 




226. 6+24. 4n 

D 




300.2 

S 

50 

2 

24 

236.4 

S 




130. 6+32. 8n 

s 




118. 9+14. On 

s 




168.3 

D 

36 

0 

0 

137.6 

S 

22 

0 

0 

78.0 
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CHARACTER ROUT I l€S 

(Section 

5.3.4) 


ENTRY 

FUNCTION 

CODE 

DATA 

STACK 

TIME 

CASPV 

Partitioned Assign to VAC 

64 

2 

0 

See LRD 

CASP 

Partitioned Assign 




See LRD 

CASV 

Assign to VAC 

28 

0 

0 

29.2 (n=0) 
See LRD 

CAS 

Assign 




32.0 (n=0) 
See LRD 

CATV 

Catenate into VAC 

76 

0 

0 

See LRD 

CAT 

Catenate into Data 




See LRD 

CINDEX 

INDEX Function 

52 

0 

18 

See LRD 

CLJSTV 

LJUST 

40 

2 

18 

See LRD 

CPAS 

Assign to Partition 

80 

2 

20 

See LRD 

CPASP 

Partition Assign to Partition 

16 

0 

146 

See LRD 

CPR 

Compare (= or “’=) 

46 

0 

0 

See LRD 

CPRC 

Compare (all relations except 
= and -’=) 




See LRD 

CPRA 

Arrayed Compare 

20 

0 

22 

See LRD 

CRJSTV 

RJUST 

46 

2 

18 

See LRD 

CTRIMV 

TRIM 

94 

0 

18 

See LRD 


# - 
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ARRAY ROUTINES (section 5.3.5) 


ENTRY 

FUNCTION 

PREC. 

CODE 

DATA 

STACK 

TIME 

DMAX 

MAX (DA) 

D 

10 

0 

0 

See LRD 

DMIN 

MIN (DA) 

D 

10 

0 

0 

See LRD 

DPROD 

PROD (DA) 

D 

14 

0 

0 

See LRD 

DSUM 

SUM (DA) 

D 

6 

0 

0 

7.2+11.6n 

EMAX 

MZiX(SA) 

S 

8 

0 

0 

See LRD 

EMIN 

MIN(SA) 

s 

8 

0 

0 

See LRD 

EPROD 

PROD(SA) 

s 

10 

0 

0 

See LRD 

ESUM 

SUM(SA) 

s 

6 

0 

0 

5.2+6. 6n 

HMAX 

MAX (HA) 

H 

8 

0 

0 

See LRD 

HMIN 

MIN(HA) 

H 

8 

0 

0 

See LRD 

HP ROD 

PROD (HA) 

H 

12 

0 

0 

See LRD 

HSUM 

SUM (HA) 

H 

6 

0 

0 

4. 4+5. 4n 

IMAX 

MAX(IA) 

I 

8 

0 

0 

See LRD 

IMIN 

MIN(IA) 

I 

8 

0 

0 

See LRD 

IP ROD 

PROD(IA) 

I 

22 

0 

0 

See LRD 

ISUM 

SUM(IA) 

I 

6 

0 

0 

4.4+5.4n 
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mSCELLANEOUS ROUTINES 

(Section 

5.3.6) 


ENTRY 

FUNCTION 

CODE 

BATA 

STACK 

BTOC 

Bit to Character Conversion 

28 

0 

0 

CSHAPQ 

Shaping Function 

40 

4 

18 

GSLD 

SUBBIT Load of Character 

246 

4 

22 

CSLDP 

SUBBIT Load of Partitioned 
Character 




CPSLD 

Partitioned SUBBIT Load of 
Character 




CPSLDP 

Partitioned SUBBIT Load of 
Partitioned Character 




CSSTP 

SUBBIT Store to Partitioned 
Character 




CPSST 

Partitioned SUBBIT Store to 
Character 




CSST 

SUBBIT Store to Character 




CPSSTP 

Partitioned SUBBIT Store to 
Partitioned Character 




CSTRUC 

Structure Compare 

12 

0 

0 

CTOB 

Character to Bit Conversion 

32 

2 

18 

CTOE 

Character to SP Scalar Conversion 

287 

2 

30 

CTOD 

Character to DP Scalar Conversion 




CTOI 

Character to DP Integer Conversion 

104 

2 

20 

CTOH 

Character to SP Integer Conversion 




CTOK 

Character to Bit Conversion, DEC 
Radix 





TIME 

161,0 (16 bits) 

See LRD 
See LRD 
See LRD 

71.8 
See LRD 

See LRD 

114.4 

See LRD 
See LRD 

5 . 4+10. 4n 
S ee LRD 
See LRD 
See LRD 
See LRD 
See LRD 
See LRD 
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MISCELLANEOUS ROUTINES (CONTINUED) (section s.3.6) 


EKTRY : 

FUNCTION 

CODE 

DATA 

STACK 

TIME 

CTOX 

Character to Bit Conversion, HEX 

58 

4 

18 

See LRD 


Radix 





CTOO 

Character to Bit Conversion, OCT 




See LRD 


Radix 





DSLD 

S DEBIT Load of DP Scalar 

22 

2 

18 

36.5 

DSST 

SUBBIT Store into DP Scalar 

54 

2 

18 

64.6 

ETOC 

SP Scalar to Character Conversion 

278 

64 

20 

336.9 

DTOC 

DP Scalar to Character Conversion 




602.5 

ETOH 

SP Scalar to SP Integer Conversion 

14 

0 

0 

15.4 

DTOH 

DP Scalar to SP Integer Conversion 




17.4 

GTBYTE 

Character Fetch 

14 

0 

’ 0 

See LRD 

ITOC 

DP Integer to Character Conversion 

104 

0 

28 

254.6 

HTOC 

SP Integer to Character Conversion 




189.6 

ITOD 

DP Integer to DP Scalar Conversion 

20 

0 

0 

15.6 

ITOE 

DP Integer to SP Scalar Conversion 

6 

0 

0 

12.0 

KTOC 

Bit to Character Conversion, DEC 

70 

0 

0 

262,5 (16 


Radix 





MSTRUC 

Structure Move 

8 

0 

0 

4.2+9.4n 

QSHAPQ 

Shaping Functions 

74 

0 

18 

42.6+31. 8n 

' RANDOM 

Random Number Generator, Uniform Dist. 46 

2 

18 

54. 4 

RANDG 

Random Number Generator, Gaussian Dist. 



575.8 

STBYTE 

Character Store 

22 

0 

0 

See LRD 

XTOC 

Bit to Character Conversion, HEX 

68 

0 

0 

See LRD 

OTOC 

Bit to Character Conversion, OCT 
Radix 




See LRD 
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REMOTE ROUTINES (section 5.3.7) 



ENTEY 

FUNCTION 

CODE 

DATA 

STACK 

TIME 

A. 

CHARACTER ROUTINES 







CASRPV 

Partitioned Assign to VAC 

86 

2 

22 

See LED 


CASRP 

Partition Assign 




See LRD 


CASRV 

Assign to VAC 

36 

0 

18 

See LRD 


CASE 

Assign 




See LED 


CPASR 

Assign to Partition 

132 

2 

24 

See LRD 


CPASRP 

Partition Assign to Partition 

16 

0 

146 

. See LRD 

B. 

STEUCTURE ROUTINES 







GSTR 

Structure Compare 

18 

0 

18 

See LRD 


MSTR 

Structure Move 

10 

0 

18 

See LRD 


REMOTE ROUTINES (CONTINUED) (Section 5.3.7) 


entry function 

VECTOR AND MATRIX ROUTINES 


MRODNP 

Scalar to Partitioned 

n ^m 


Matrix Move 


MROSNP 

II 

n,m 

MRIDNP 

Partitioned Matrix Move 

n,m 

MRISNP 

ri 

n,m 

MRITNP 

n 

n,m 

MRIWNP 

If 

n,m 

VRODN 

Scalar to Vector Move 

n 

VRODNP 

Scalar to Coliomn Vector 
Move 

n 

VROSN 

Scalar to Vector Move 

n 

VROSNP 

Scalar to Column Vector 
Move 

n 

VRIDN 

Vector Move 

n 

VRIDNP 

Column Vector Move 

n 

VRISN 

Vector Move 

n 

VRISNP 

Column Vector Move 

n 

VRITN 

Vector Move 

n 

VRITNP 

Column Vector Move 

n 

VRIWN 

Vector Move 

n 

VRIWNP 

Column Vector Move 

n 


PREC. 

CODE 

DATA 

STACK 

TIME 

D 

16 

0 

20 

22,8+n(5.6+9.8m) 

S 

16 

0 

20 

22 . 8+n (’5 . 6+8 . 6m) 

D 

22 

0 

20 

28. 4+n (8.2+15. Om) 

S 

22 

0 

22 

28. 4+n (8.2+12. 6m) 

D-S 

24 

0 

22 

31. 2+n (7. 6+13. 8m) 

S-D 

24 

0 

22 

-32. 8+n (8. 2+15. 8m) 

D 

6 

0 

18 

16 .4+9. 2n 

D 

10 

0 

18 

21. 2+10. On 

S 

6 

0 

18 

16. 4+8. On 

S 

10 

0 

18 

2l.2+8.8n 

D 

8 

0 

18 

16 . 4+15 . On 

D 

20 

0 

18 

See LRD 

S 

8 

0 

18 

16 . 4+12 , 6n 

s 

20 

0 

18 

See LRD 

D-S 

8 

0 

18 

16. 4+13. 8n 

D-S 

20 

0 

18 

See LRD 

S-D 

10 

0 

18 

20 . 6+13 . 8n 

S-D 

22 

0 

18 

See LRD 


5.3.1 Arithmetic Routine Descriptions 

This subsection presents the detailed descriptions 
of a class of routines generally denoted as "Arithmetic". 
Appendix C of the HAL/S Language Specification contains a 
list of HAL/S functions which are implemented by the 
routines described here. 
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DMOD 


HAL/S-FC LIBRARY ROUTINE, DESCRIPTION 
Source Member Name: DMOP Size of Code Area: 42 

0 H w Data CSECT Size; 

Q Procedure 


Stack Requirement; 


Q Intrinsic 
Other Library Modules Referenced : 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 


Function; Calculates HAL/S MOD function in double precision. 


Invoked by: ' 

[3 Compiler emitted code for HAIj/S construct of the form: 

MOD(A,B), where at least one of A or B is a double precision scalar. 


I I other Library Modules! 


Execution Time (microseconds): 74.6 




ORIGINAL PAGK 


Input Arguments; 
Type 
Scalar 
Scalar 

Output Results: 
Scalar 

Errors Detected: 
Error # 

19 


Precision 

DP 

DP 


Precision 

DP 


How Passed 
FO/Fl 
F2/F3 


How Passed 
FO/Fl 


Units 


Units 


Cause 

mod domain error when B=0 , 
A < 0 


Fixup 
Return A 


If one argument is several orders of magnitude greater than the 
other argument, the code sequence for A- ( j B ] *FLOOR (A/ | b] ) loses some bits 


Comments : 


it is possible to have the result of A(mod B) be greater than 


of precision, . . it is pcj)s|x 

^^^Use^jB^f . If B==0, then check A for a possible mod domain error. If A ^ 0, 
then return A. If A < 0, signal error and return negative A. If not equal, 
then use MOD (A, B) = A- ( J B j *FLOOR (A/ ] B | ) ) , First, get X = A/1 b|, If X = 0, 
then exit with result 0 (0 mod(B) = 0). The FLOOR(X) is different for 
negative and positive X. If X < 0, round X down past next smaller negative 
integer by subtracting .9999999999999999. Then subtract 

BIGNUM(X'4E80000000000000') to get rid of the decimal places and leave only 
an integer value, Add BIGNUM to normalize the integer value. If X > 0, ^ 

no rounding is done; BIGNUM is first added, then subtracted. 

For arguments that are orders of magnitude apart, it is necessary to 
check that the result is ^ 1®| • RESULT > [bI * teturn [b|. 
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DMOD 


DMOD 


Comments (Cont'd.) 

Registers Unsafe Across Gall; R4,F0,F1,F2,F3,F4,F5. 
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DMOVAL 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: DMDVAL 


Size of Code Area: 


Stack Requirement: 


Hw Data CSECT Size: 


□ Intrinsic 

Other Library Modules Referenced: 


m Procedure 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: DMDVAL 


Function ; 


Finds mid value of three double precision scalar 
arguments . 


Invoked by: , 

ED Compiler emitted code for HAL/S construct of the form; 

MIDVAL (A/B ,C) where A,B,C are double precision scalars. 
□ Other Library Modules: 


Execution Time (microseconds) : 


41.4 


Input Arguments; 


scal.ar 

scalar 

scalar 

Output Results: 
Type 

scalar 

Errors Detected; 
Error # 


Precision 


Precision 


How Passed 


How Passed 


Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 

Algorithm: ip A = B THEN RETURN A; 

IF A < B THEN DO; ■ 

IF B <= C THEN RETURN B; 

ELSE IF A <= C THEN RETURN C; 

ELSE RETURN A; , .. .. 

END; ■ . 

ELSE DO; 7 ' 

IF C <= B THEN RETURN B; 

ELSE IF C <- A THEN RETURN C; 

ELSE RETURN A; 

END ; 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 



Function: Calculates HAL/S MOD function in Single precision. 

Invoked by; 

nn Compiler emitted code for HAL/S construct of the form: 
M0D(A,B), where A and B are single precision scalars. 

□ Other Library Modules: 
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IMOD 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

IMOD 


Size of Code Area; 

20 

HW 

Stack Requirement: 

0 

Hw 

Data CSECT Size: 

?. 

Hw 

Pn Intrinsic 



n Procedure 



Other Library Modules 

Referenced: 

None. 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ^MOP 

Function: Calculates A Mod(B). For A ^ 0, the mod can be defined as 

MOD=lB|-lA-(n+l) 1 b| I where n is an integer and .{A- (n+1) | B j ] < 0 <_ [A-n|B|]. For 
A < 0, MOD=lB|-]A+(n-l) 1 b| I , where n is an integer and {A+(n-l) 1 b|J ^ 0 <lA+nlBj]. 
Invoked by: 

E] Compiler emitted code for HAL/S construct of the form; 

MOD(A,B), A and B are both integers and at least A or B is a 
fullword integer value, 

n other Library Modules; 


Execution Time (microseconds) ; 29.4 


Input Arguments: 

Ti[£e 

Integer 

Integer 


Precision 

DP 

DP 


How Passed 
R5 
R6 


Units 


Output Results: 
Integer 


Precision 

DP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 

19 


Cause 

MOD not defined for first 
arg < 0 and second arg = 0. 


Fixup 

Return fxrst arg. 


Comments: 

Registers Unsafe Across Call: R2,R4 ,R5,R6,R7 . 


Algorithm: 

Use |b|. If B=0, then check for possible error; if A _> 0, tnen result is A. 
If A < 0, error. For B 7^ 0, the mod is found using one of two formulae, 
depending on the value of A. For A >^ 0, MOD(A,B) = A-I | B [ * (A/ |b | ) ; . For 
A < 0, M0D(A,B) = A-jBj*(A/jBj ) + jB| . For all values of A, the res’ It is 
always non-negative . 

For A > 0, MOD = REMAINDER (A, B) . These equations are used because 
AP-101 division (scalar or integer) does not yield a remainder. 


... 
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IMOD 


Secondairy Entry Name: 

Function: Performs HAL/S MOD(A,B) where both A and B are single 
precision integers . 

Invoked by: 

(3 Compiler emitted code for HAL/S construct of the form: 

MOD(A,B), where A and B are both single precision integers. 

Q Other library modules: . 


Execution Time (microseconds) : 29.4 


Input Arguments: 

yyp-e 

Integer 

Integer 

Precision 

SP 

SP 


How Passed 
R5 
R6 

Units 

Output Results: 
Type 

Precision 


How Passed 

Units 

Integer 

SP 


R5 

- 

Errors Detected: 
Error # 


Cause 

Fixup 


Scime as IMOD 






Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6,R7. 

Algorithm: 

Same as IMOD 


kbpeoducibilik*® 

Q^IiSlAL 
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IREM 



Function; Calculates integer remainder of (A/B) . 

Invoked by : 

Compiler emitted code for HAL/S construct of the form; 

REMAINDER (A/B) , where A and B are both integers and at least one 
of A or B is double precision. 

n other Library Modules; 




Execution Time (microseconds): 27.0 


Input Arguments; 
Type 

Integer 

Integer 

Output Results; 
Integer 

Errors Detected; 
Error # 

16 



Comments ; 

Registers Unsafe Across Call; R2,R4,R5,R6,R7. 

Algorithm; 

If B=0, then error. For B / 0, the remainder is found using 
REMAINDER (A, B) = [a- B*(A/B)]. The result can be negative . 


r 

I ; 

j i:/' 
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IREM 


Secondary Entry Name: HREM • • 

Fxanction; 

Calculates integer remainder of A/B. 

Invoked by: 

m Compiler emitted code for HAL/S construct of the form: 

REMAINDER (A, B) , where A and B are both single precision integers. 

□ Other library modules: 

Execution Time (microseconds): 27.0 


Input Arguments: 
Type 

Integer 

Integer 

Precision 

SP 

SP 


How Passed 

R5 

R6 


Units 

Output Results: 
Type 
Integer 

Precision 

SP ^ 


How Passed 
R5 


Units 

Errors Detected: 
Error # 

16 

zero 

Cause 

denomination 

(B) 

Fixup 
Return A 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6,R7. 

Algorithm: 

Same as IREM. 
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ROUND 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; Size of Code Area: 

Stack Requirement: 0 Hw Data CSECT Size: ^ 

g] Intrinsic SECTOR 0 □ Procedure 

Other Library Modules Referenced: None 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ROUND 

Function: converts single precision scalar to fullword integer* 

Invoked by; 

Q Compiler emitted code for HAL/S construct of the form; 

ROUND (X) where X is a single precision scalar. 

Pn Other Library Modules: QSHAPQ 


n Procedure 


Execution Time (microseconds): 39.0 


Input Arguments: 
Type 

Scalar 


Precision 


How Passed 


Units 


Output Results: 


Integer 

Errors Detected: 
Error # 


Comments ; 

See DROUND. 


Precision 


How Passed 


Cause 

Scalar to large for 
integer conversion. 


Units 


Fixup 

Set to max/min representable 
value: 

Negraax = X '80000000' 

Posmax = X*'7FFFFFPP' 


See DROUND. Registers Unsafe Across Call: R4,R5,F0,F1. 
Algorithm; 

Second register of a floating point register pair is cleared 
then routine merges into the double precision f loat— to-f ix 
routine, DROUND. 
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ROUND 


Secondary Entry Name; 

Function: Performs HAL/S CEILING function: Returns smallest integer 

^ the argument. 

Invoked by; 

□ Compiler emitted code for HAL/S construct of the form: 

CEILING (X), where X is a single precision scalar. 

f~| other library modules; 


Execution Time (microseconds) : 31.4 if X ^ 0 

40.8 if X < 0 


Input Arguments: 

Type. 

Scalar 


Precision 

SP 


How Passed 

FO 


Units 


Output Results; 


Integer 

Errors Detected: 
Error # 

15 


Comments : 


Precision 

DP’ 


How Passed 
R5 


Units 


Cause 

Scalar too: large for 
integer conversion. 


Fixup 

Return either: 

Posmax = X'7FFFFFFF' 
or Negmax = X' 80000000' 


See DCEIL . Registers Unsafe Across Call: R4,R5,F0, Fl. 

Algorithm: . 

Second register of floating point register pair is cleared, then 
routine merges with DCEIL. 


RffEODTIdBUITT Oy THE 

OEIGINAL PAf- 
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ROUND 


Secondary Entry Name: DCEIE..- , 

Function; Performs HAL/S CEILING function; Finds the smallest integer 
^ the argument* 

Invoked by; 

Pn Compiler emitted code for HAL/S construct of the form: 

CEILING (X), where X is a double precision scalar. 

n other library modules: 

Execution Time (microseconds): 26.6 if X > 0 

36.0 if X ^ 0 


Input Arguments: 
Scalar 


Precision 

DP 


How Passed 
FO, FI 


Units 


Output Results: 
Tjige 
Integer 

Errors Detected: 
Error # 

15 


Precision 

DP ’ 


How Passed 
R5 


Units 


Scalar too large for 
integer conversion. 


Cause Fixup 

Return either; 

Posmax = X'7FFFFFFF* 
or Negmax = X* 80000000' 

comments; Negative args become less negative after CEILING;^' positive args 
more positive. a 3 

-3 1-2-101 I 2 3 (Cont'd. at bottom of 

Algorxthm: ^ t page) 


CEILING (a) 


CEILING C3) 


Same as DROUND^. except positive arguments are rounded up by almost 1. 
Negative argiments are not rounded. 


Comments: (Continued) 

Registers Unsafe Across Call: R4,R5,F0,F1. 
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ROUND 


Secondary Entry Name: DFLOOR 

Function: Performs HAL/S FLOOR function: Finds the largest integer 

the argument. 

Invoked by: 

m Compiler emitted code for HAL/S construct of the form: 

FLOOR (X) , where X is a double precision scalar. 

□ Other library modules: 

Execution Time (microseconds); 27.0 xf X ' 0 

36.4 if X < 0 


Input Arguments: 

SiE® 

Scalar 


Precision 

DP 


How Passed 
PO, FI 


Units 


Output Results: 
Integer 


Precision 

DP 


How Passed 
R5 


Units 


Errors Detected: 
' Error # 

15 


Scalar too large for 
integer conversion. 


Comments 4 
positive . 

Algorithm; 


Cause Fixup 

Return either; 

Posmax - X’VFFFFFFF' 
or Negmax = X' 80000000' 

Negative arguments become more negative, positive argiaments less 

, - 3 2 (Cont'd. at bottom of page) 


-3 


-2 -1 0 1 2 


FLOOR (a) 


FLOOR (3) 


Same as DROUND, except argument is rounded down by almost 1 
(X‘ 40PFFFFFFFPFFFFF' ) if negative. Positive arguments are not 
rounded. 

Comir.ents: (Cont'd.) 

Registers Unsafe Across Call: R4 ,r5,P0,P1. 
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ROUND 


Secondary Entry Name: dround 

Function: 

Converts double precision scalar to fullword integer. 

Invoked by: 

Q Compiler emitted code for HAL/S construct of the form: 

ROUND (X), where X is a doi±)le precision scalar. 

r~) other library modules: 

Execution Time (microseconds) : 33.8 


Input Arguments; 

Type Precision 

Scalar DP 


Hov 7 Passed Units 

PO, FI — r — 


Output Results; 




yype 

Precision How 

Passed 

Units 

Integer 

DP 

R5 

- 

Errors Detected; 




Error # 

Cause 

Fixup 


15 

Scalar too large for 

Return either: 


integer conversion. 

Posmax = X ' 

7FFFFFFF 

Comments ; 


or Negmax = X' 

80000000 


Negative arguments are converted to the next more negative integer value; 
positive args to the next greater positive integer value, unless the (Con' t on 
Algorithm; bottom of page) . 

The argument is checked for negative/not negative. If the argument is 
negative, the value is roxonded down by subtracting just under h. The resulting 
value is then checked against MAXNEG (X'CSSOOOOOOOFFFPPP) . If within the 
legal range, the integer part of the scalar is shifted to the second register 
of the floating point register pair. This remaining integer value is then put 
in a fixed point register and complemented to leave it in the correct two ' s-~ 
complement fixed point form. If the argument is not negative, the value is 
rounded up by adding almost h, and the resulting value is compared to MAXPOS 
(X' 487PFFFFFFFFFFFF) . Then, as with negative values, it is shifted to leave 
the integer part in floating point format and loaded into a fixed point register. 

Comments (Con't) ; original argument is an integer (argument rounded up or 
down by not quite 1 before truncating decimal places) . 

Registers Unsafe Across Call: R4,R5,F0,P1. 
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ROUND 


Secondary Entry Name; DTOI 

Function; Converts double precision scalar to fullword integer. 


Invoked by; 

(3TI Compiler emitted code for HAL/S construct of the form: 

I = D; where I is a double precision integer, and 
D is a double precision scalar. 

□ Other library modules: 


Execution Time (microseconds): 33.8 


Input Arguments: 
Type 
Scalar 


Precision 

DP 


Hov; Passed 
FO 


Units 


Output Results: 
Integer 

Errors Detected: 
Error # 

15 


Comments : 


Precision 

DP 


How Passed 
R5 


Units 


Cause 


Fixup 


Scalar too large for integer conversion. Return either; 

POSMAX or 
NEGMAX 


DTOI is identical entry -point to DROUND. 
Registers Unsafe Across Call; r4,R5,F0,F1. 

Algorithm: same as DROUND. 
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Secondary Entry Name; 

Function; Performs HAL/S TRUNCATE function; Finds the signed value that is 
the largest integer ^ absolute value of the argument. 

Invoked by; 

nn Compiler emitted code for HAL/S construct of the form; 

TRUNCATE (X), where X is a double precision scalar. 

n other library modules; 


Execution Time (microseconds); 28.6 


Input Arguments; 

Type Precision How Passed Units 

Scalar DP FO, FI - 


Units 


Errors Detected: 

Error # Cause Fixup 

15 Scalar too large for Return either; 

integer conversion. Posmax; X'7PFPPPFF' 

or Negmax: X' 80000000' 

Comments: After truncation, negative and positive arg\iments are closer to 0; 
no rounding done before truncation. 

-3 ? -2 -1 0 12 

^ i c 1— 1 1- 

Algorithm: ' + -f 

TRUNCATE (a) TRUNCATE (g) 

Same as DROUND, except argument is not rounded up or dotvn. 

Comments; (Continued) 

Registers Unsafe Across Call; R4,R5,F0,Fl. 


g , (Continued at bottom 

■] — •+ ► of page) 


Output Results! 
Type 

Integer 


Precision 


DP 


How Passed 
R5 


'■i-t 
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ROUND 


Secondary Entry Name: 

Function: . . , 

Converts single precision scalar to fullword integer. 

Invoked by; 

13 Compiler emitted code for HAL/S construct of the form: 

I=S where I is a double precision integer, S is a single precision 
scalar. 

□ Other library modules; 

Execution Time (microseconds): 39.0 


Input Arguments: 
Type 

Precision 


How Passed 

Units 

Scalar 

, SP 


FO 

- 

Output Results: 

Precision 


How Passed 

Units 

Integer 

DP 


R5 

- 

Errors Detected; 
Error # 

15 

Scalar 

Cause 

too large for 

Fixup 

Return either: 

Comments : 

integer 

conversion . 


Posmax = X'7FFFFFFF 
Negmax = X' 80000000 


ETOl is identical entry point to ROUND; also see DTOl 
Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

Same as ROUND, 
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ROUND 


Secondary Entry Name: 


FLOOR 


Function: Performs HAL/S FLOOR function: 

the argument. 


Returns largest integer < 


Invoked by: 

Q Compiler emitted code for HAL/S construct of the form: 
FLOOR (X) , where X is a single precision scalar. 

n other library modules: 


Execution Time (microseconds) : 31 .2 if x ^ 0 

40.6 if X < 0 


Input Arguments: 
Type 

Scalar 


Precision 

SP 


How Passed 
FO 


Units 


Output Results: 
Type 

Integer 


Precision 

DP 


How Passed Units 

R5 


Errors Detected: 

Error # Cause 

— 15 Scalar too large for 

integer conversion. 

Comments : 

See DFLOOR 

Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

Second register of floating point register pair is cleared, then 
routine merges with DFLOOR. 


Fixup 

Returns eidier : 

Posmax = X'7FFPFFFF' 
or Negmax = X' 80000000' 
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ROUND 


Secondary Entry Name: TRUNC 

Function: Performs HAL/S TRUNCATE function; Returns signed value that 

is the largest integer ^ absolute value of the argument. 

Invoked by: 

pc] Compiler emitted code for HAL/S construct of the form: 

TRUNCATE (X) where X is a single precision scalar. 

□ Other library modules: 

Execution Time (microseconds): 31.4 


Input Arguments: 
Type 

Scalar 


Precision 


SP 


How Passed 

PO 


Units 


Output Results; 

^ype 

Integer 

Errors Detected; 
15 


Precision 

DP 


How Passed 


Units 


R5 


Cause 

Scalar too large for 
integer conversion. 


Fixup 

Return either; 

Posmax = X'VFFFFFFF' 
or Negmax = X* 80000000* 


Comments ; 

See DTRUNC 

Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

Second register of floating point register pair is cleared, then 
routine merges with DTRUNC. 


f OF IHF 
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5,3.2 Algebraic Routine Description 

This subsection presents the detailed descriptions 
of "Algebraic" routines as defined in Appendix C of the 
HAL/S Language Specification, 
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ENTRY POINT DESCRIPTIONS 


Primary Entry Name; 


-ACOS 


Function: Computes arc-cosine (x) of scalar argument. 

Invoked by: . 

Q Compiler emitted code for HAL/S construct of the form; 
ARCCOS(X), where X is a single precision scalar. 

I I Other Library Modules: 


Execution Time (microseconds): .5 < jx| <1; 225.5 


Input Arguments; 
Type 
Scalar 


2.441406252 x 10“4 < |x|<.5: 132.7 
lx| < 2.441406252 x 10“^: 71.5 


Precision 


How Passed 


Units 


Output Results; 


Scalar 

Errors Detected: 
Error # 

10 


Precision 


How Passed 


Cause 

argument outside range -1 to 1. 


Fixup 
Return 0.0 


Units 

radians 


Comments : 


Registers Unsafe Across Call: F0,F1,F2,F3,P4,P5. 

Algcritlmi; , ACOS (x) is computed as Tr/2 - ARCSIN(X). 
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ACOS 


Secondary Entry Naune; ASIN . __ 

Function: 

Computes arc— sine of scalar argument. 

Invoked by; 

[x] Compiler emitted code for HAL/" construct of the form: 

ARCSIN(X) , where X is a single precision scalar. 

n other library modules: 

Execution Time (microseconds): .5 < |xl£l: 227.6 

2.441406252 x 10-4<|x| £.5: 118.4 
|xj <■ 2.441406252 x 10“4; 57,2 

Precision Hov; Passed Units 

SP PO , - 


Input Arguments I 
Scalar 


Output Results: 

.Tyge 

Scalar 

Errors Detected; 
Error # 


Precision 


How Passed 


Units 


SP 


FO 


radians 


Cause 


Fixup 


10 argument outside leqaj. range. Return 0.0 


Comments ' . . 

Registers Unsafe Across Call: F0,Fl,P2,P:i,F4,F5. 

Algoritlim: The value of X rs restricted to 0 £ X £ 1 by using the identity 
arcEim \) -arcsin(X), and further to 0 £ X £ . 5 by the xdentit/ 
arcsin'X/ TT/2 - 2 arcsLn(jj££{ ' In this range, arcsin(X) rs computed 

2 

as -V truncated continued fraction rn X-, multiplied by X. 


The lorm of the approximation is; 

arcsin (X) ~ X + 


dj^ x' 


+ X 4 d. 


C2 + X 


wheie the values of the constants are: 


= XVC13B446A' 
= X'C11DB034' 


-3.7042025 

-1.8555182 


d = X'C08143C7' = -0.5049404 
1 


d - X’C11406BF' 
2 


-1.2516474 
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ACOSH 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

ACOSH 

Size of Code Area; 

36 

Hw 

Stack Requirement: 

20 

_Hw Data CSECT Size: 

2 

Hw 


□ Intrinsic Q Procedure 

Other Library Modules Referenced: LOG , SQRT 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ACOSH 

Functions 

Computes hyperbolic arc-cpsine in single precsion. 
Invoked by; 

pn Compiler, emitted code for HAL/S construct of the form; 
ARCCOSH(x), v;here x is a single precision scalar. 

□ Other Library Modules; 


Execution Time (microseconds): 1.6777722E+7 < X: 124.2 

1 < X < 1.6777722E+7; 297.3 


Input Arguments ; 

Precision 

How 

Passed 

Units 

scalar 

SP 

FO 



Output Results: 
Type 

Precision 

How 

Passed 

Units 

scalar 

SP 

FO 


- 

Errors Detected; 
Error # 

59 

Comments; 

Registers Unsafe 

Across Call; 

Cause 
ARG < 1 ' 

F0,F1,F2,F3,F4,F5, 

Fixup 
Return 0.0 



Algorithm: 

Using the external SQRT and LOG functions: 
arccosh (x) = log (x + 
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ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


ASINH 


Function: 


Computes hyperbolic arc-sine in single precision. 


Invoked by: . 

(3 Compiler emitted code for HAL/S construct of the form; 
ARGSINH(X), where X is a scalar. 

□ Other Library Modules; 


Execution Time (microseconds) : (See below) 


Input Argimients: 
Type 

Scalar 


Precision 


How Passed 


Units 


Output Results: 
T ype 

Scalar 

Errors Detected: 
Error # 


Precision 


Cause 


How Passed 


Fixup 


Units 


Comments : 


Registers Unsafe Across Call: P0,F1,P2,F3,P4,F5. 


Algorithm: 

Using the external SQRT and LOG routines: 

arcsinh(X) = log(X 2 . ) 

X + 1 

Execution Time: X < 8.8721751E-4; 31.5 

X ^ 1.6777722E7: 141.2 

8.8721751E-4 £ |x| < 2.1632855E-1; 85.4 

2.163255E-1 < |x| < 1 . 6777722E+7 : 314.1 
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ATANH . 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ATANH Size of Code Area: 

Stack Requirement: 18 Hw Data CSECT Size: 

□ Intrinsic lH Procedure 

Other Library Modules Referenced: 


58 


ATANH 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name: _ 

Function: 

Computes hyperbolic arc-tangent in single precision. 
Invoked by: 

Compiler emitted code for HAL/S construct of the form; 
ARCTANH(X), where X is a single precision scalar. 

□ Other Library Modules: 


Hw 

Hw 




Execution Time (microseconds) : 


Input Arguments; 
Type 

Scalar 


Precision 


SP 


|x| < 4.H3892E-5: 33.9 
4.113892E-5 £ ix| < 1.875E-1: 85.7 
1.875E-1 < [x| : 228.2 

How Passed 


FO 


Units 


Output Results : 
Type 

Scalar 

Errors Detected: 
Error # 

60 


Precision 


How Passed 


SP 


FO 


Cause 

argument outside range: 
-1 < X < 1 


Units 


Fixup 
Return 0 . 0 


Comments: 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 

Algorithm: 

Using the external LOG function, 

arctanh(S) = h log ( (1 + X) / (l — X) ) . 

Error #60 is sent if 1 - X = 0, or if (I + X)/(l — X) <_ 0. 
Which/ taken together, are equivalent to the requirement —1 < X < 1. 
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DACOS 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 


DACOS 


Size of Code Area; 150 


Stack Requirement: 

Q Intrinsic 


Hw Data CSECT Size: 


0 Procedure 


Other Library Modules Referenced: 


DSQRT 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: DACOS 

Function: Computes ARCCOS (X) in double precision, 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 

ARCCOS (X) , where X is a do\±>le precision scalar. 

□ Other Library Modules; 

Execution Time (microseconds): £ 3.7252907E-7 : 89.1 

3.7252907E-7 < jx| < .5: 263.1 

.5 < |xj £ 1: 460.5 (79.7 in odd cases) 

Input Arguments : 

Type Precision How Passed Units 

Scalar DP FO 


Output Results; 
Type 

Scalar 

Errors Detected: 
Error # 


Comments : 


Precision 


How Passed 


Units 

radians 


Cause 

argument outside range 
-1 < X < 1 


Return 0.0 


Registers Unsafe Across Call; F0,Fl,F2,F3,P4,F5. 
Algorithm: 

Computed as TT/2 - ARCSIN (X) 
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DACOS 


Secondary Entry Name; 
Function: 


Computes ARCSIN(X) in double precision. 


Invoked by: 

(x I Compiler emitted code for HAL/S construct of the form: 

ARCSIN(X), where X is a double precision scalar. 

□ Other library modules: 

Execution Tine (microseconde) = | f f |xi’i !5;\38.1 

.5 < Ixi < 1: 470.3 (89.5 in odd cases) 


Input Arguments; 
Type 
Scalar 


Precision 

DP 


How Passed 
FO 


Units 


output Results: 
^ypg- 

Scalar 


Precision 

DP 


How Passed 
FO 


Units 

radians 


Errors Detected: 
Error # 

10 


Cause 

argument outside range 
-1 < X < 1 


Fixup 

Return 0.0 


Comments ; . 

Registers Unsafe Across Call: FO ,F1 ,F2 ,F3 ,F4 ,F5 . 

Algorithm: The value of X is restricted to 0 £ X ^ 1 by using the identity 

arcsin(-X) = arcsinCX) , 

and further to 0 _< X < ^5 by using the identity , 

arcsin(X) -11/2 -2 arcsii^y i-^X , 

Within this range, arcsin(X) is computed as a truncated continued fraction 
in X^, multiplied by X. 

The form of the approximation is: 

d, \ 


arcsinCX) = X+X^ (S ^ ^ 


- 


X + Cj + dj 


\ 


X + C3 + 33 


X + c. + d. 

4 4 


X^ + C, 


(Continued on next page) 
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DACOS 


dacos 

Algorithm (Con't) 


where the values of the constants are: 


= X'3F180CD96B42A610' 
= X’C07FE600798CBF27' 
= X'C1470EC5E7C7075C' 
d^ = X'C1489A752G6A6B54' 

C - X'C13A5496A02A788D’ 

3 

d^ = X'C06B411D9ED01722' 

C, = X'C11BFB2E6EB617AA' 

4 

d^ = X'BF99119272C87E78' 

4 

= X'G11323D9C96F1661' 

5 


= .00587162904063511 
=-.49961647241138661 
=-4 . 4411067 0602864049 
=-4 . 53770940160639666 
=-3 .64565146031194167 
=-.41896233680025977 
=-1.74882357832528117 
=-. 03737027365107758 
=-l . 19625261960154476 
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f: 

p : 



DACOSH 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name: DACOSH 

Size of Code Area: 42 

Hw 

Stack Requirement; 22 Hw 

Data CSECT Size; 2 

Hw 

r~l Intrinsic 

g] Procedure 


Other Library Modules Referenced; 

DLOG, DSQRT 


1 1 


ENTRY POINT DESCRIPTIOl'JS 

Primary Entry Name; DACOSH 

Functxon: Computes hyperbolic arc-cosine in double precision. 

Invoked by: - 

{1T| Compiler emitted coda for HAL/S construct of the form; 

ARCCOSH(X), where X is a double precision scalar. 

□ Other Library Modules: 




Execution Time (microseconds): 1 ^ X < 6.7108869E+7: 403.4 

6.7108869E+7 < X: 332.4 


Input Argiaments: 
Type 

scalar 


Precision 

DP 


How Passed 
FO 


Units 


Output Results : 
Type 

scalar 

Errors Detected: 
Error # 

59 


Precision 

DP 


Cause 


argument < 1 


How Passed 
FO 


Units 


Fixup 
return 0.0 


Comments ; 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 

Algorithm: 

Using the external DSQRT and DLOG functions: 


arccosh (x) = log(x + Vx^-1) 


ORIGINAL 


OF THE 
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DASINH 


1 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

DASINH 

Size of Code Area: _ 

94 

Hw 

Stack Requirement; 

22 Hw 

Data CSECT Size; 

0 

Hw 

r~l Intrinsic 


PTj Procedure 



Other Library Modules 

Referenced : 

DSQRT, DLOG 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DASINH 

Function: 

Computes hyperbolic arc-sine in double precision. 

Invoked by: - 

0 Compiler emitted code for HAL/S construct of the form; 

ARCSINH(X), where X is a double precision scalar. 

□ Other Library Modules: 

Execution Time (microseconds): (See below) . 


Input Arguments: 
Type 

Precision 


How Passed 

Units 

Scalar 

DP 


FO 


Output Results: 
Type 

Precision 


How Passed 

Units 

Scalar 

DP 


FO 

* 

Errors Detected: 
Error # 


Cause 

Fixup 



Comments; 

Registers Unsafe Across Call: FO ,Fl ,F2 ,F3 ,F4 ,F5 . 

Algorithm: 

Using the external DSQRT and DLOG function; 

arcsinh(X) = log (X + ^X^ + 1) 

Execution Time; | X | < 1. 353860E-8 : 33.6 

6.7108864E+7 £ :|x| : 348.2 
1.353860E-8 < [x| £6.25E-2: 185.4 
6.25E-02 < |xj < 6.7108864B+7: 570.8 
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DATANH 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

DATANH 

Size of Code Area; go 


_ Hw 

Stack 

Requirement; 

18 Hw 

Data CSECT Size; 

2 

Hw 


Q Intrinsic 


gj Procedure 



Other 

Library Modules 

Referenced : 

DLOG 




ENTRY POINT DESCRIPTIONS 


Primary Entry Name; DATANH 

Function; 

Computes hyperbolic arc-tangent in double precision. 

Invoked by; - 

El Compiler emitted code for HAL/S construct of the form; 

ARCTANH(X), where X is a double precision scalar. 

□ Other Library Modules; 

Execution Time (microseconds); |^| 1.0774559E-8; 42,6 

1.0774559E-8 £ |x| < 6.25B-2: 186.6 
6.25E-2 < Ixj : 399.0 

Input Arguments; ~ 

Type Precision How Passed Units 

Scalar DP FO - 

Output Results: 

Type Precision How Passed Units 

Scalar DP FO - 

Errors Detected; , 

Error # Cause Fixup 

60 Argument outside range: Return 0.0 

-1 < X < 1 

Comments : 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 

Algorithm: 

Using the external DLOG library function, 

arctanh(X) = % log ((1 +X)/(l-x)). 
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DATAN2 


I-IAL/S-FC LIBRARY ROUTINE DESCRIPTION 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DATAN2 

Computes arctan by fraction approximation in the range (-7r, 7T) 


in double precision. 

Invoked by: 

Compiler emitted code for HAL/S construct of the forms 

ARC'i.'AN2 (X, Y) , where X and Y are double precision scalar corresponding 

to sine and cosine respectively of the intended arc tangent argument. 

n other Library Modules; 





Comments: 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,P5. 

Algorithm: Same algorithm as EATAN2, but values of constants and the fractional 

approximation formula is different for the double precision, as follows. 

Again , Z = 

return ±TT. (2) sin x - cos x = 0, signal error and return 0. (3) sin x ^ 0, 

cos X = 0, return ± 77/2. (4) sin x / 0, cos x / 0, but Z > (16)^'^, return 

+ lr/2. (5) If Z < (16)“'^, return Z. 


Special cases - (1) If cos x < 0 and Z < (16) 


(Continued on next page) 
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DAT AN 2 


tm 


.RiWDTJcroaro^l 

PA.GE U> 


DATAN2 

Algorithm (Con't) 


The fractional approximation after reduction of Z to £ tan 15° is; 

Tan"^(Z) = Z + Z • Z^ • F, where 
F = Cl + C2/(Z^ + C3 + C4/[Z^ + C5 + (C6/(Z^ + C7))]). 


Cl = X'BF1E31FF1784B965' 
C2 = X'C0ACDB34C0D1B35D' 
C3 = X'412B7CE45AP5C165' 
C4 = X'C11A8F923B178C78' 
C5 = X'412AB4PD5D433FF6’ 
C6 = X'C02298BB68CFD869' 
C7 = X’41154CEE8B7DCA99’ 


(-0. 7371899082768562E-2) 
(-0.6752198191404210) 

(0. 2717991214096480B+1) 
(-0. 1660051565960002E+1) 
(0 . 2669186939532663E+1) 
(-0.1351430064094942) 

(0. 1331282181 443987E+1) 


As in EATAN2, the intermediate result is adjusted to the proper section 
in the first quadrant, as follows; 

(original) Z ^ tan 15° -> + 0 

tan 15° < Z £ 1 + Tr/6 

1/Z < tan 15° -*■ (-V/2 + 1) then -1 (to preserve signif. bits) 


tan 15° < 1/Z < 1 


(-7T/3 + 1) then -1 (to preserve signif, bits) 


The resulting angle is adjusted to the proper quadrant as in EATAN2 (according 
to sign of sin x and cos x) . 
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DATAN2 


Secondary Entry Name; DATAN 

Function: Computes arc tangent by fractional approximation in the range 

(-7T/2, +TT/2) in double precision. 


Invoked by; 

□ Compiler emitted code for HAL/S construct of the form: 
ARCTAN(X), where X is a double precision scalar. 

□ Other library modules; 

Execution Time (microseconds): 237.3 


Input Arguments: 

Type 

Precision 

How Passed 

Units 

Scalar 

DP 

FD 


Output Results; 

Precision 

How Passed 

Units 

Scalar 

dp' 

FO 

Radians 

Errors Detected: 

‘ Error # 


Cause Fixup 


Comments : 

Registers Unsafe 

Across Call: 

F0>1,P2,F3,P4,P5. 



Algorithm; Same as ARCTAN, but see DATAN2 for phanges in values of DP 

constants and TAN~^ formula. 
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DEXP 

HAI./S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: Sizse of Code Area: 

Stack Requiremerit: IQ H w Data CSECT Size: 

□ Intrinsic □ Procedure 

Other Library Modules Referenced : . ________ 


DEXP 


66 


ENTRY POINT DESCRIPT.; ONS 

Primary Entry Name: 

Function 

X 

Computes e in double precision. 

Invoked by : 

[ X t Compiler emitted code for HAL/ S construct of the form; 
EXP (X) f where X is a double precision scalar. 


Hw 

Hw 


fxl Other Library Modules: 

DPWRD .. DSINK, DTANH 
Execution Time (microseconds): 290.5 

How Passed Units 

FO 

How Passed Units 

FO - 

Fixup 

6 Argument outside range Return maximum positive 

X ^ 174.6731 floating point number 

Comments: 

Gives underflow if argument to small - no error number. 

Registers Unsafe Across Call: F0,F1,F2,F3. 

Algorithm; First, decompose X as P’log2 + R' , where P' is the integer 
part and first hexadecimal place of the result of dividing the high-order 
part of X by L0G2H, which is a single precision approximation to log2, 
rounded up. This is done in 80-bit precision in order to yield a true 56-bit 
value for R' , by expressing log2 — LOG2H + L0G2L, where L0G2L is a. double 
precision scalar. R' has the same sign as X, and | R' | might be slightly > 

log 2 
16 ' \ 

(Continued on next page) 
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Input Arguments; 
Type 

Scalar 


Precision 

DP 


Output Results : 
Scalar 

Errors Detected: 
Error # 


Precision 

DP 


Cause 



'%Jr' 





EEPKOBBGBaOT 0|^ 

OWG®5iAI* “ 


DEXP 


DEXP 

Algorithm (Con't) 


Now 


, if R' > 0, subtract from it until it becomes <0, each time 

16 ~ 


adding 


— to P' . If R' < - , add to it until it becomes 


16 


16 


16 


> “ r each time subtracting from P' 

16 16 


At the end of this, we have 

X = P • log2 + R, P an integral multiple of 1/16, and - £ 0. 

Represent P as 4A - B - , where A, B, and C are integers, 0 <_ B £ 3, 


0 < C < 15, 


Then : 
X 


= 16 




C__ 

16 


R 

To calculate this, we compute e with a polynomial approximation of 
the form: 

r 2 3 4 5 6 

e = 1 + c,r + c„r + c^r + c r + c_r + c.r 
12 3 r 5 6 

where the values of the constants are: 

= X ' 40FFFFFFFFPFFCFC ' = .9999999999999892 

c^ = X'407FFFFFPFFAB64A' = .4999999999951906 

C^ = X'402AAAAAA794AA99' = .1666666659481656 

c, = X*3FAAAA9D6AC1D734' = .0416666173078875 
4 

c, = X»3F2220559A15E158'=. 00833161772003906 

c^ = X'3E591893' = .001359497 
6 

C 
*L 6 

Then, 2 is computed by table lookup, 2 by shifting ,/ and 16 
by adding A to the exponent of the answer. / 
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DLOG 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 


Size of Code Area: 140 


Stack Requirement; 


Hw Data CSECT SiZfe: 


□ Intrinsic 


0 Procedure 


2 Hw 


Other Library Modules Referenced: J^Qte 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function : 

Computes log (X) in double precision. 

Invoked by: 

Q Compiler emitted code for HAL/S construct of the form; 
LOG (X) , where X is a double precision scalar. 

m Other Library Modules; 

DPWRD, DASINH, DATANH# DACQSH 

Execution Tijne (microseconds); 282.2 


Input Arguments: 
Type 
Scalar 


Precision 

DP 


How Passed 
FO 


Units 


Output Results; 
Scalar 

Errors Detected; 
Error # 

7 


Precision 


How Passed 
FO 


Units 


Cause 


F iaatp 


argument outside range X > 0. If X < 0 return log{|X|)} 

if X-0, return maximum 


Comments : 

Registers Unsafe Across Call: P0,F1,P2 ,F3 >F4,F5 , 


negative floating point 
number. 


^ . p -Q 

Algorithm: We write X = 16 *2 • M, where ^ _< M < 1, P, Q are integers, 

0 < Q < 3. P, Q, and M are found by fixed-point calculations. Define 


A = 1, B = 0, if M >{/2/2, and A = B =s 1 otherwise. Let Z = CM-A)/Cm+A). Then 
log(X) = t4P-Q-B)log(2)+log((l+Z)/Cl-Z)) 


(Continued on next page) 
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PLOQ 



DLOG 

A Jgor i thm ( Con * t ) 


log ( (1+Z) / (1-Z) ) is computed by an approximation of the form: 


• ii. ■ 

W + I 


=3 \ 

bi 

+ Oj j 



1 

/ 



where W - 2Z, and the values of the constants are: 

- X’ 3DDABB6C9F18C6DD* = 0. 2085992109128247E-3 

- X'422FC604e13C20FE* s 0.4777351196020117E+2 
= X’C3BE5A1C55CEB1C4' = -0.2277631917769813E+4 

^ X'C16F2A64DDFCG1FD» “ -6.947850100648906 

4 

Cp =: X'C12A017578F548D1' =-2.625356171124214 

5 

C- = X'C158PA4EOE40COA5’ =-5.561109595943017 

6 
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r 


DPWRD 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 


DPWRD 


Size of Code Area: 


Stack Requirement: 


r~] Intrinsic 


_££__Hw Data CSECT Size: 
SI Procedure 


Other Library Modules Referenced: DLOG, DEXP, DSQRT 


ENTRY POINT DESCRIPTIONS 


Primary Entry Namp; DPWRD 

Function: 

Performs exponentiation of double precision scalar to double precision power. 

Invoked by: . 

FI Compiler emitted code for HAL/S construct of the fonn; 

X**y, where X and Y are scalars and at least X or Y is double precision. 

n other Library Modules: 


Execution Time (microseconds): If Y = .5: 238.4 

If Y 7^ .5: 635.6 

Input Arguments; 


Precision 


How Passed 


Scalar (base) DP PO 

Scalar (exponent) DP F2 

Output Results; 

Type Precision How Passed 

Scalar DP PO 

Errors Detected: 

# Cause Fixup 

4 base=Oj exponent < 0 Return 0,0 

. base < 0 use | base | 

Comments ; 

Registers Unsafe Across Call: F0 ,p1,F2,F3,P4,fS. 

Algorithm: If exponent — 0.5, compute X * as j/ x , otherwise 

„Y Y log X 

^ - s r using the external DEXP and DLOG functions. 


Precision 

DP 


Cause 

base=0; exponent ^ 0 
base <0 


Fixup 
Return 0,0 
use I base I 


Units 


Units 
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hal/s-fc library routine description 


Source Member Name: 


Size of Code Area; 


Stack Requirement; 


Q Intrinsic 


18 Hw Data CSECT Size; 

0 Procedure 


DPWRI 


Other Library Modules Referenced; 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; DPWRI 

Function; 

Exponentiation of a double precision scalar to a fullword integer power. 

Invoked by: ' 

(3 Compiler emitted code for HAL/S construct of the form; 

X**I» where X is a doiJsle precision scalar? I is a double precision integc 



n other Library Modules; 


Execution Time (microseconds) ; (See next page) 


Input Arguments; 

Type Precision 

Scalar (base) DP 

Integer (exponent) DP 


How Passed 

FO 

R6 


Units 


Output Results; 
Type 
Scalar 


Precision 

DP 


How Passed 

Fd“ 


Units 


Errors Detected: 
Error # 


Cause 

Zero raised to power < 0 


Fixup 


Return 0 . 0 


Comments: 

Registers Unsafe Across Call: F0,F1,F2,F3. 

Algorithm: If I is the fullword exponent, D the base, write 

I = e.2^, where e. = 0 or 1. 

1=0 1 ' 1 


Then: 


E.e,2^ 32 2^ 

D^ - D ^ ^ = IT : D ^ = TT , D , if any e. = 1, and = 1 otherwise, 

1—0 e.=l X ' 

1 


(Continued on next page) 
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DPWRI 


RISRODUCBILIW ® THE 

OEIGINAL page It> lOOR 


DPWRI 

Execution Time (microseconds) ; 

X£ exponent ^ 0; 40*8 + (n-1) 23 « 2 + 13.0m 
If exponent 5. (n'^1) 23.2 + 13.0m 

where m = number of I's in binary representation of | exponent]. 

ri = number of significant digits in binary representation 
of 1 exponent I . 


Algorithm (Con't) 


To compute tt 


e.=l 

X 


it is only necessary to compute successively 


2*^ 2 4 8 2 

D = D, D‘ , D , D , and multiply the result by D whenever the i-th 

bit of the exponent is 1. This is determined by shifting bits one by one 

out of the exponent, and testing each one for a valxie of one. The loop 

terminates when the remaining part of the exponent is zero. 

Operations are done on absolute value of exponent. If exponent was 

negative, the reciprocal of the result is taken as the final result. 


i 5--92; ' 
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DPWRI 




Secondary Entry Namej DPWRH 
Function: 

Exponentiation of a double precision scalar to a halfword integer power. 
Invoked by; 

[3 Compiler emitted code for HAL/S construct of the form: 

X**I, where X is a double precision scalar; I is a single precision integer. 

□ Other library modules; 


Execution Time (microseconds) ; Same as DPWRI except constants are 

exponent ^0; 41.4 
exponent < 0: 64.6 


Input Arguments; 
Ty£e 

Precision 

How Passed 


Units 

Scalar (base) 

DP 

FO 


- 

Integer (exponent) 

SP 

R6 


— 

Output Results; 

Precision 

How Passed 


Units 

Scalar 

DP 

FO 


— 

Errors Detected: 
Error # 

4 

Cause 

Zero raised to power < 0 


Fixup 

Return 0 



Comments : 

Registers Unsafe Across Call; F0,F1,F2,F3. 

Algorithm: The halfword, exponent is shifted right to convert it to a 

f ullword , then the DPWRI algoritlim is used. 
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DSIN 


imL/S-FC LIBRARY ROUTINE DESCRIPTION 

source Meinbcr Names Size ot Code Area: IH. 

Stack Requirement! ^0 H w Data CSECT Size: 

n Intrinsic 0 procedure 




Function: 

Computes sine(X) in double precision. 

Invoked by: ' . . r... 

(3 Compiler emitted code for HAL/S construct of the form, 

SIN(X), where X is a double precision scalar. 


□ Other Library Modules: 


Execution Time (microseconds) : 267.0 


Hw 

Hw 



Input Arguments; 
Type 
Scalar 


Precision 

DP 


How Passed 
PO 


Units 

radians 


Output Results; 
Tyge 

Scalar 

Errors Detected: 
Error # 

8 


Precision 

DP 


How Passed 
FO 


Units 


Cause 


Argument outside range : 


Argument" ou 

|x| < TT.250 


Fixup 

Return 


Comments: 

Registers Unsafe Across Call: F0,F1,P2,F3,F4 ,f5. 

Algorithm : T^et | X 


— = 0+R, where Q is an integer and R a fraction. 
7T 


I Add 4 to Q if the sine is desired and X < 0, and add 2 to Q if ^tdie cosine 

is desired. 

i since sin (-X) - sin (+x>, and cos (x) = sin (| tx) ^ this reduces the problem 

to computing sin (x) for X >\ 0. 

(Continued on next page) 
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DSIN 


DSIN 

Alg or i thm { Con ' t ) 

Since Q has been adjusted, it is only necessary to compute sin(j(Q+R)). 

77 

If Q'=Q 8, then this is equal to sin (^(Q'+R) ) . The eight cases 
of this yeild; through simple trigonometric identities; 

TT 

Q'=0; sin(x) = sin (R • j) 

Q’=l: sin(x) = cos ( (1-R) * "j) 

Q'=2; sin(x) = COS (R ' 

Q'=3; sin(x) = sin ((1-R) • j) 

Q'=4: sin(x) = -sin(R ^ j) 

Q'=5; sin(x) = -cos ( (1-R) ' 

Q'=6; sin(x) = -cos (R ♦ — ) 

Q'=7; sin(x) =-sin((l-R) * 

Thus, if we let R'=R in octants 0, 2, 4, 6, and R'=l-R in octants 1, 3, 5, 7. 

We need only compute _ 

sin(R' ’ j) 

71 * 

in octants 0, 3, 4, 7, and cos (R* • — ) in 1, 2, 5, 6, and take the negative 
value in octants 4, 5, 6, 7. 

TT IT 

sin(R' ' -t) and cos(R* • -r) are computed by polynomial approximations. 

The form of the polynomial approximation for sine is; 

sin(R' . ^) = R' (C + C.R'^ + G„R'^ + C_R'® + C/.R'® + C + C^R'^^) 

where the values of the constants are: 

Cq = X'40C90FDAA22168C2‘ = .78539816339744831 
= X'C014ABBCE625BE41' =-.080745512188280536 
= XV3EA335E33BAC3PBD' = 2. 4903945701888438E-3 
Cg = X'BD265A599G5CB632' = -3 . 6576204158913872E-5 
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OF THE 
! POOH 

DSIN 

PSIN 

Algorithm (Con't) 


BEPBODUCIBILOT 
OBIGINAL page I 



C, = X'3B541E0BF684B527* = 3. 1336162254333759E-7 

4 

Cg = X»B978C01C6BEF8CB3' = -1, 7571500746935669E-9 

G, = X'3778FGE0E5AD1685' = 6.8773605709403589E-12 
6 


The form of the polynomial approximation for cosine is: 

TT 2 4 6 8 1 r) 12 14 

cos(R' . t) = 1 + C-R' + C^-R' + C_'R' + G -R + G--R' + C.-R' + C_-R' 

4 1 2 3 - 4 5 6 7 


where the values of the constants are: 

I ^1 “ X'C04EF4F326F91777' = -.30842513753404242 

I;: . , 

p: C = X'3F40F07C2060)5AB1' = 1.5854344243815420E-2 

G = X'BE155D3C7E3C90F8' = -3. 2599188692673765E-4 

3 

G^ = X’3C3C3EA0D06ABC29' = 3. 5908604460279520E-6 

4 

= X'BA69B47B1E41AEF6’ = -2. 4611364033652271E-8 

5 

G^ = X'387E731045017594’ = 1.1500512028186245E-10 

6 

G^ = X'B66C992E84B6AA37’ = -3.8581890061323055E-13 
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DSIN 


Secondary Entry Name: DCOS 

Function : 

Computes cosine (x) in double precision. 

Invoked by; 

nn Compiler emitted code for HAL/S construct of the form: 
COS (X), where X is a double precision scalar, 

n other library modules: 


Execution Time (microseconds): -7T £ x ;< "fr ; 261.8 

X > TT or X < -TT; 264.2 

Input Arguments : 

Type Precision How Passed 

Scalar DP FO 


Output Results: 
Type 

Scalar 


Precision 

DP 


How Passed 
PO 


Errors Detected; 

Error # Cause 

8 Argument outside range 

|x| < 7T.25° 

Comments ; 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,P5. 

Algorithm: 

See DSIN algorithm. 


Fixup 


Return 


ar 
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DSINH 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

DSINH 

Size of Code Area; 

130 

Hw 

Stack Requirement; 

22 Hw 

Data CSECT Size: 

2 

Hw 

Q Intrinsic 


Q Procedure 



Other Library Modules 

Referenced : 

DEXP 




ENTRY POINT DESCRIPTIONS 


Primary Entry Name: DSINH 

Function: 

Computes hyperbolic sine in double precision. 


invoked by: 

fF] Compiler emitted code for HAL/S construct of the form; 
SINH(X), where X is a double precision scalar. 

n other Library Modules : 


Execution Time (microseconds) ; 


8.81374E-1 < jx < 1.75366E+2: 434.1 
2.063017E-10 < xj < 8.81374E-01; 196.7 
1x1 < 2.063017E-10: 45.8 


Input Arguments: 
Type 
Scalar 


Precision 

DP 


How Passed 
FO ■ 


Units 


Output Results: 
Type 

Precision 

How Passed Units 

Scalar 

DP 

FO 

Errors Detected; 
Error # 

Cause 

Fixup 

9 

Argument outside range 
|xj <_ 175.366 

Return maximum positive 
floating point number. 

Comments ; 




Registers Unsafe Across Call; F0,F1,F2,F3,F4,F5. 

Algorithm: if \x\ < 1.626459E-10, then sinh(x) = x. If 1.626569E-10 < 

lx! < .881374, Then sinh( x ) is computed via a pdlynomial approximation. 


The form of the polynomial is: , 

sinh(x) - X + C-X^ + C„X^ + C_X^ + C.X^ + C_X^^ + C,X^^ 
1 2 3 4 5 d 

Where the values of the constants are : 

(Continued on next page) 
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DSINH 



W' 


DSINH 

Algorithm (con't) 



= X'402AAAAAAAAAAA4D' = 0.1666666666666653 

= X'3F2222222222BACE' = 0. 8333333333367232E-2 

= X/3DDO0D00CB06A6F5' = 1. 984126981270711E-4 

= X'3C2E3BC881345D91' = 2. 755733025610683E-6 

Gg = X'3A6B96B8975A1636' = 2 . 504995887597646E-8 

C- = X' 38B2D4C184418A97' = I .626459177981471E-10 
6 


Otherwise, sinh(|x|) or coshCjx]) is calculated using EXP. The number 
V, equal to 0.'4995050‘,” is introduced to control rounding errors and 
the formula is as follows; 


sinh (x) 


2 

1 . (x+logv) V 
2v ^ (x+logv) 


cosh (x) 


2 

1 . (x+logv) V . 

2v ® (x+logv) 

e 


The identities sinh(-x) = -sinh (x) and cosh(-x) = cosh (x) are used 
to recover sinh(X) and cosh(x) from sinhtlxj) and cosh(,jxj). 
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DSIMH. 


Secondary Entry Name; DCOSH 

Function; 

Computes hyperbolic cosine in double precision. 
Invoked by: 

1x1 Compiler emitted code for HAL/S construct of the form; 
COSH(X), where X is a doioble precision scalar. 

n other library modules; 

Execution Time (microseconds); |x| < 1.75366E+2; 422.6 



Input Arguments; 
Type 
Scalar 


Precision 

DP 


How Passed Units 

FO ' 


Output Results; 

Type Precision How Passed Units 

Scalar DP FO - 

Errors Detected; 

Error # Cause 

9 Argument outside range 

lx] < 175.366 

Comments ; 

Registers Unsafe Across Call; F0,Fl,P2,F3,F4,F5. 

Algorithm; 

See DSINH algoritlim. 


Fixu p 

Return maximum positive 
floating point number 
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DSQRT 


Source Member Name: . 

Stack Requirement: 

Q Intrinsic 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
g. DSQRT Size of Code Area: 


Hw Data CSECT Size; 
G Procedure 


Other Library Modules Referenced; ^ ^ — ■ — — — 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; DSQRT — , — ^ 

Function; 

Computes square root in double precision. 

^”^^Compiler emitted code for HAL/S construct of the form; 
SQRT (X) , where X is a double precision scalar. 

fxl Other Library Modules: 

' DACOS, DASINH, DPWRD, W10D3 , DACOSH 


Execution Time (microseconds): 345.2 


Input Arguments; 
Scalar 


Precision 


How Passed 


Units 


Output Results : 
Type 
Scalar 


Precision 


How Passed 


Units 


Errors Detected: 
Error # 

5 


Cause 

Argument outside of range Return sqrt(lxj) 

1x1 >0 


Comments : 

Registers Unsafe Across Call: FQ,f1,F2,P3,F4,F5. 

Algorithm: Let X ^ ’ M, where P, Q are integers, Q = 0 or 1, and 

^ < M < 1. Then 16^^ • 4® ‘ IT^T ’ 

16 — 

= 16^"^^ ^M*16~2 . 

For a first approximation, we take 

P .Q+1 

y^ = A*(M+B) ‘ 16 • 4 


(Continued on next page) 
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DSQRT 


DSQRT 

Algorithm {Con ' t) 


where the values of the constants are; 


A = X'40385P07' = .22020005 


B = X'40423A2A' = .25870006 


This calculation is carried out with the characteristic of A increased by 
8 and the others decreased by 8, in order to store the value of 

(B • • 16"® 

for later use. 


Then, two passes of the Newton-Raphson iteration are performed in single 
precision. The form of the iteration is: 

1 , ,,P+Q-8. 

“ 2 ‘7: - ^3’ + « ■ 16 ) - ■ 16 ) + yj 

3 i 


single precision 


This is done to truncate excess digits of 
P+O— 8 

is less than 16 ^ in absolute value. 


— y^, which is 0, and 
^3 
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DTAN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 


Size of Code Areas 


Stack Requirement: 


Hw Data CSECT Size: 


□ Intrinsic 0 Procedure 

Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; PTAN 
Function: 

Computes tangent in double precision. 

Invoked by; 

pn Compiler emitted code for MAL/S construct of the form: 
TAN(X) f where X is a do^lble precision scalar. 

□ Other Library Modules ; 


Execution Time (microseconds): 302.2 


Input Arguments: 
Type 
Scalar 


Precision 

DP 


How Passed 
FO 


Units 

radians 


Output Results: 
Type 

Scalar 


Errors Detected 

Error # Cause Fixup 

11 Argviment outside range | X | < 7T.2^° Return l 

12 Argument too near a singularity of Return maximu 

the tangent function floating poi 

Comments; 

Error gets very large near a singularity, before error #12 is sent. 
Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 

Algorithm: Multiply X by — , and give the characteristic of this to 

X' 0000000000000008' for use as a comparand to determine nearness to a 


Precision 


How Passed 


Units 


Fixup 
Return 1 

Return maximum positive 
floating point number 


singularity. The integer part of [x 
even, let w = fraction part of jx| • 


is the octant. If the octant is 


(Continued on next page) 
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DTAN 


DTAN 

Algorithm (Con* t) 

If the octant is odd, let w = -1 -fraction part of jx] * ^ . 

-46 

Next/ compute two polynomials P (w) and Q(w). If w ^ 2 , then the 

forms of the polynomials are: 

2 4 6 

P (w) = ^ ^l'^ ^ w ) 

, . , 2 ^ 4 ^ 6 

Q(w) = b„ + b_w + b„w + b_W 
0 1 2 3 

If w < , then with u = w if lx! • — < i, and u = -w otherwise. 

V' IT 

P(w) = w(a + u) 
o 

Q(w) - + b^u 

where the values of the constants are; 


a^ = X’C58APDD0A41992D4* 


-569309.04006345 


= X’44APFA6393159aa6' = 45050.3889630777 
- X'C325PD4A87357CAF' = -607.8306953515 
b^ = X'C5B0F82G871A3B68' - -724866.7829840012 
b^ = X'4532644B1E45A133' = 206404.6948906228 
b^ = X'C41926DBBB1F469B' = -6438.8583240077 
b^ - X'422376P171F72282' =35.4646216610 

If w <_ the comparand derived earlier and the octant = 1 or 2 (mod 4) , 
then error 12 is sent, otherwise, Q(w)/P(w) is returned with its sign 
adjusted. In octants = 0 or 3 (mod 4), P(w)/Q(w) is returned, with the 
sign adjusted according to tan (-x) = --tan(x). 

P (W) TT 

The justification for this computation is that ^ = tan(W • t) and 


P(w) 


Q(w) 

\) , and simple trigonometric identities 


4 

TT 


give, for R = fraction part of X 

(continued on next page) 
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DTAN 


dtan 

Algorithm (Con't) 

Octant (mod 4) Formula for tan 

0 tan ( I X I ) = tan (R • ^) 

1 tanCjxj) = cot((l-R) • 

2 tanllxj) = -cot(R • j) 

3 tan(jx|) = -tan((l~R) • 

which is the result of the computation as performed. 
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I 

! 

i 


ENTR Y POINT DESCRIPTIONS 

BEIPBODUCIBILnY OF TJiK 
OBICliNAL PAGF IS POOE 


the form; 


n other Library Modules : 

Execution Time (microseconds) t (See below) 


Primary Entry Name: DTANH 

Function : 

Computes hyperbolic tangent in double precision. 
Invoked by; 

ra Compiler emitted code for HAL/S construct of 
TAN(X), Where X is a double precision scalar. 


DTANH 


HAL/S~FC LIHRARY ROUTINE DESCRIPTION 


Source Member Name; DTANH 

Size of Code Area; 

94 

HW 

Stack Reauirement; 22 Hw 

Data CSECT Size: 


0 Hw 

r~| Intrinsic 

(3 Procedure 




Other Library Modules Referenced: DEXP 


Input Arguments s 
Type 

Scalar 


Precision 

DP 


How Passed 
PO 


Units 


Output Results: 
Type 

Scalar 

Errors Detected; 
Error # 


Precision 

DP 


How Passed 
FO 


Units 


Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call: P0,F1,F2,F3,F4,P5. 

Algorithm: If |x| > 20,101, return +1 or -1, according to the sign of X. 

If 0.54931 < |xl < 20.101, then (using DEXP) , tan(|x|) = 1 


1+e 


Restore sign with tan (-x) = -tanh(x) , For jx) 16 , tanh(x) = X, 

(Cont'd, on next page) 

Execution Time: 

|x| £ 3.72529E-9; 47,8 
3.72529E-9 < 1x1 < 5,4931E-1: 177.9 


5.4931E-1 < 
2.0101E + < 


< 2.0101E+1: 420.6 
: 54.6 
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DtANH 


DTANH 

Algorithm (Con’t) 


7 

For other values of X, 16~ < |x| < 0.54931, use a continued fraction 

approximation: 


tanh (x) 


X + X 


^1 s 


x^ + c. 



+ Cj 


where the values of the constants are ; 


Cq = X'C0F6E12F40F5590A' = -.9643735440816707 
= X'419DA506FD3DBC84' - 9.8529882328255392 
= X'C31C504FEF537AF6» = 453.01951534852503 

C = X'424D2FA31CAD8D0C = 77.186082641955181 

3 

C = X'C3136E2A5891D8E9' = -310.8853383729134 

4 • ■ 

C = X*4219B3ACA4C6E790' = 25.701853083191565 
5- 
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Comments : 

Registers Unsafe Across Call: F0,F1,F2,F3 ,F4,F5. 

Algorithm: The pointer to the data area that contains quadrant section constants 

is set and the sign of sin x is saved. The value Z = jsin x|/|cos x| is checked 
for several special cases. (1) If cos x <0 and Z < (16)^^, then return 
TT • SIGNUM(SINX) . (2) If SINX = COSX = 0, then signal error and return 0. 

(3) If SINX ^ 0, COSX = 0, then return i tt/ 2 • SIGNUM (Sin X) . (4) If 

sin X 0, cos X 7 ^ 0, but Z > (16)^, again return ± f/ 2 = (F/2 • SIGNUM (sin x) ) . 

(5) If Z < (16)”^, return Z. 

Now, all of the special cases have been checked for. If the routine gets 
this far, it is time to reduce Z = tan x so that Z < tan f/ 12 (tan 15®). 

(Continued on next page) 

5-108 

INTERMETRICS INCORPORATED - TO! CONCORD AVENUE • CAMBRIDGE. MASSACHUSETTS 02138 * (617) 661-1840 


A A. 



EATAN2 


EATAN2 

Algorithm (Con't) 


There are four cases to examine for Z in the quadrant. 

A) Z > 1. Use 1/Z. 

1) tan 15® < 1/Z 1 

2) 1/Z ± tan 15® 


B) Z 5 1 

3) tan 15® < Z £ 1 

4) Z <_ tan 15® 

For Z or 1/Z > tan 15®, the reduction 

Tan-^Z = lT/6 t tan(Y) , where Y = Z VT - 1/Z + IT is used. 

To protect significant bits, Y is computed as 
Y = Z( 1) - 1 + 2/Z + 1^ 

Once Z or 1/Z 1 tan 15®, the formula for arctan Z can be applied, 

Tan~^ (Z) =0 4 . 02^ + (B/ (Z^ + A) ) , Where the constants 

Z " . 

have the following values (hex values are used in the routine) : 

A = X’41168A5E' (1.4087812) 

B = XM08F239C (0.55913711) 

C - X'BFD35F49' (-0,051604543) 

D == X'409A6524' (0.60310579) 


Z ^ tan 15® 
tan 15® < Z 1 1 
1/Z ^ tan 15° 
tan 15° < 1/Z £ 1 


-> +0 (E'O' ) 

+ TT/6 (X'40860A92') 
- ir/2 {X’C11921FB') 
-> - 7T/3 (X ' CLLOG152 ’ ) 


(Continued on next page) 
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jLi.V-:2 


. , V OF TBF 

, , B ?ocm 


EATAN2 


EATAN2 

Algorithm (Con't) 


we now have the oorreot angle £ot the first quadrant. All that remains 
is to fir the quadrant. If the cos r < 0, then Tan'Nx) = IT - Tan'^ (Z) . 
That fixes the angle to agree with the sign of cos X. How make the sign 
of the answer agree with the sign of sin x, i.e. -Tan-^z) for -sin x and 

+ Tan~'^ (Z) for + sin x. 

The result, in radians, is in the correct quadrant in the range (-u, +7f) . 
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EATMI2 


Secondary Entry Name: ATAN 

Function: Computes arctangent by fractional approximation in the range 

+ TT/2) in single precision. 

Invoked by: 

fyl Compiler emitted code for HAL/S construct of the form: 

ARCTAN{X) , where X is a single precision scalar. 

n other library modules: 


Execution Time (microseconds) : 


116.5 


Input Argiunents: 
Tjpe 
Scalar 

Precision 

SP 


How Passed 
FO 

Units 

Output Results : 

Soee 

Scalar 

Precision 

SP 


How Passed 
FO 

Units 

Radians 

Errors Detected: 
‘ Error # 


Cause 

Fixup 



Comments: 

Registers Unsafe Across Call: FO,Fl,F2,F3,F4,F5. 

Algorithm: Very similar to EATAN2, but the only special case that can be 
checked is Z = |tan xj < (16)**3, if z is this small, then return Z to avoid 
an underflow exception later on. The algorithm for reduction and computation 
of Tan~l Z is the same as BATAN2 again mtil quadrant fixing time. Since ARCTAN 
has only one arg, the result can only be adjusted in the range t-r‘TT/2, iT/2) . The 
Tan~i Z is computed for the first quadrant. 

If the argument, tan x, is negative, the result is made negative. 


5-111 

INTERMETRICS INCORPORATED ' 70! CONCORD AVENUE • CAMBRIDGE. MASSACHUSETTS 02138 • (617) 661~1840 


EPWRE 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name; EPWRE Size of Code Area: 

22 H w Data CSECT Size; _ 
□ Procedure 


32 


Stack Requirement: 




Hw 

Hw 


□ Intrinsic 

Other Library Modules Referenced: EXP, LO G, SQRT 


ENTRY POINT DESCRIPTIONS 


EPWRE 


Primary Entry Name: 

^E^oJ^^ntiation of a single precision scalar to a single precision scalar power. 

Invoked by; ^ ' 

12 Compiler emitted code for HAL/S construct of the form; 

X**Y, where X and Y are single precision scalars. 


n other Library Modules: 


Execution Time (microseconds) 


If Y = .5; 124.7 
If Y .5; 337.1 


Input Arguments ; 

Type 

Scalar (base) 
Scalar (exponent) 

Output Results: 

Type 

Scalar 

Errors Detected: 

Error # 

4 

24 


Precision 

SP 

SP 


Precision 


SP 


How Passed 
FO 
F2 


How Passed 


FO 


Cause 

Zero raised to power 5 . 0 
Base < 0 


Units 


Units 


Fixup 
Return 0.0 
use I base I 


Comments ; 


Registers Unsafe Across Call: F0,F1,P2,F3,F4,P5. 


0.5 


as 


Algorithm: Tf exponent = O.S compute X 

Otherwise, = e^ using the external EXP and LOG functions. 


S-112 


INTERMETRICS INCORPORATED - 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (517) 661-1840 




EPWRI 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name: EPWRI 

Size of Code Area: 38 

Hw 

Stack Requirement; 18 Hw 

Data CSECT Size; ^ 

Hw 

Intrinsic 

0 Procedure 


Other Library Modules Referenced; 

None 



ENTRY POINT DESCRIPTIONS 


Primary Entry Name; EPWRI 


Function; 


Exponentiation of a single precision scalar to a double 
precision integer power. 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 

X**I, where X is a single precision scalar, and I is a double 

precision integer, 

□ Other Library Modules; 


Execution Time (microseconds); (sge next page) 


Input Arguments: 
Type 


Precision 


Scalar (base) SP 

Integer (exponent) DP 


How Passed 
FO 
R6 


Units 


Output Results; 
Type 
Scalar 

Errors Detected: 
Error # 


Precision 

SP 


How Passed 
FO 


Units 


Cause 


Zero raised to power < 0 


Fixup 

Return 0.0 


Comments s 

Registers Unsafe Across Call: F0,F1,F2,F3. 

Algorithm; Let I = (exponent}, E = base. Write 

,32 


1 - , where e^ = 0 or 1 for all i , 


then 


-r S . e , 2 e . 2^ ' i 

„I _ _ 1 1 m ^ 2 

^ ^ "7’’e.=i ® ^ some e^. = 1, and = 1 otherwise. 


(Continued on next page) 
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EPWRI 


EPWRI 


Execution Time ; 

38.2 + (n-1) 16.2 + 6.0m + 14.2 (if exponent negative), 

where n = number of significant digits in binary representation of 
j exponent j . 

m = number of significant I's in binary representation of 
I exponent!. 


Algorithm (Gon ' t) 


The product tt is computed in a loop. Each time around the loop, 

^i 

k 2^^^ 

E is multiplied by itself to give E . The k+l-st bit is shifted 

k+1 

out of the exponent. If it is 1, E'^ is multiplied into the result. 

If not, the result is left alone. When the remaining exponent is zero, 
the loop is finished and the result is E^ . If the exponent was positive, 
return B^. Otheirwise, return the reciprocal of E^. 
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EPWRI 


Secondary Entry Name: EPWRH 


Function: 
Exponentiation of 

Invoked by: 


a single precision scalar to a single precision integer 
power . 


nn Compiler emitted code for HAL/S construct of the form: 

X**I^ where X is a single precision scalar, and I is a single precision 

integer. 


Q other library modules: 

Execution Time (microseconds): same as EPWRI, except constant is 38.8. 


Input Arguments s 

Precision 

How 

Passed 


Units 

Scalar (base) 

SP 


FO 


- 

Integer (exponent) 

SP 


R6 


. ■ 

Output Results; 
Type 

Precision 

How 

Passed 


Units 

Scalar 

SP 


FO 



Errors Detected: 






Error # 

Cause 



Fixup 


4 

Zero raised to power <_ 0 



Return 0,0 



Continents; 

Registers Unsafe Across Call; F0,F1,F2,F3. 


Algorithm: 


Halfword exponent is shifted right to convert to a fullword. 
Then, EPWRI routine is used. 
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EXP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Membel: Name; 

Stack Requirement; 

Q Intrinsic 


Size of Code Area: 108 . 


18 Hw Data CSECT Size; 


g] Procedure 


Other Library Modules Referenced: 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: EXP 

Function : 


Computes e in single precision. 

Invoked by: 

fx] Compiler emitted code for HAL/S construct of the form: 
EXP (X) , where X is a single precision scalar. 

SI Other Library Modules : 

TANK, EPWRE, SINK 

Execution Time (microseconds); 141.8 


EEPHODUCIBILIIY OP THE 
OBIGINM. PAGE IS POOR. 


Input Arguments: 
Scalar 


Precision 


How Passed 


Units 


Output Results: 
Type 
Scalar 

Errors Detected; 
Error # 

6 


Precision 


How Passed 


Units 


Cause 

Zirgument outside range; 
X < 174.673 


Fixup 

Return maximum positive 
floating point number. 


Comments : 


Registers Unsafe Across Call; P0>P1,F2,F3!. 

Algorithm: Let X log 2 e = 4R-S-T, where R and S are integers, 0 <. S _< 3, 

and 0 < T < 1. Then 

exp(X) = 16^ • • 2 "'^ 


I 2~ is computed by a fractional approximation of the form: > 

L ' -T , -2T 

I P; 2 . B 

I CT - T + D + ^^2 

The computation is carried out in fixed-point, and the values and scaling 
of the constants are: 

(Continued on next page) 

5-116 ■ , . 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE. MASSACHUSETTS 02138 ♦ (617) 661-1840 


EXP 


Algorithm (Con * t) 


A = X'576AE119' = 87.417497 at bit 7 


B = X'269F8E6B' = 617.97227 at bit 11 


C = X’B9059003' = -0.03465736 at bit (-4) 


D = X'B05CPCE3' = -9.95459578 at bit 4 


•“S 

The multiplication by 2 is carried out by shifting right S places, 
and the multiplication of 16^ is done by adding R to the floating 
exponent. 
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ENTRY POINT DESCKIPTION3 


Primary Entry Name: 
Function: 


IPWRI 


OF TH’- 

! A T> A '"'y ’ 


ruiiuuxwii- 

Computes double precision integer to positive double precision integer 
power . 

Invoked by : ^ ^ 

□ Compiler emitted code for HAL/S construct of the form: 

X ** arg 2^ where arg 1 is a double precision integer, and 

arg 2 is a positive double precision literal. 

Q Other Library Modules: 

, V k + 16.4(n-l) + 7.0m + 0,4(n-2) if n > 2, where 

Executxon Time (microsecon s ^ ^ significant digits in binary representation of 

arg2, m = # of significant ones in binary representation of arg2. 

Input Arguments: ^ _ How Passed Units 

Type Precision now rasseu 

Integer (base) ^ DP R5 - 

Integer (exponent) DP 


Output Results : 

fype 

Integer 

Errors Detected; 
Error # 


Precision 


How Passed 


Cause 

zero raised to power ^ 0 


Units 


Fixup 
Return 0 


Comments : 


Registers Unsafe Across Call: R5. 


Algorithm: Shift all halfwords to convert to fullwords , Let B - base, 

I = exponent. ‘ ~ 

Write 1 ~ E e. 2^, where e. = 1 .for each i. Then; 

1=0 1 1 

= oi 

I TT i = TT B if e. = 1, and = 1 otherwise. 
B=.B e.=l 1 

1 1 


(Continued on next page) 
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IPWRI 


IPWRI 

Algorithm ( Con ' t ) 


2 

The product IT B is computed in a loop. Each time aroxind the loop, 

B is multiplied by itself to give B . The k+l-st bit is shifted 
out of the exponent and tested. If it is 1, the partial result is 

multiplied by B , If not# the partial result is left as is. When 
the remaining exponent is 0, the result is and the exit is taken from 
the loop. The answer is stored in ARG5 to be available after registers 
are re.sUored. 
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IPWRI 


Secondary Entry Name: IPWRH 

Function; . . . • ^ 

Computes double precision integer to positive single precision .integer power. 

Invoked by; 

[3 Compiler emitted code for HAL/S construct of the form: 

arg 1 ** arg 2, where arg 1 is a double precision integer, and 

arg 2 is a positive single precision integer literal. 

n other library modules: 

Execution Time (microseconds): gajne as for IPWRI^ except k = 46.6. 


Input Arguments: 
Type 

Precision 


How Passed 


Units 

Integer (base) 
Integer (exponent) 

DP 

SP 


R5 

R6 



Output Results: 

Precision 


How Passed 


Units 

Iiiteger 

DP 


R5 


- 

Errors Detected: 
Error # 


Cause 


Fixup 


4 

Zero 

raised to 

power <T!» 0 

Return 0 



Comments ; 

Registers Unsafe Across Call; R5. 

Algorithm: 

See IPWRI 
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r 



IPWRI 


Secondary Entry Name; HPWRH 

Function; 

Computes single precision integer to positive single precision integer power. 
Invoked by; 

[in Compiler emitted code for HAL/S construct of the form: 

arg 1 ** arg 2, where arg 1 is a single precision integer variable, and 

arg 2 is a positive single precision positive 
integer literal. 

M other library modules; 


Execution Time (microseconds): same as for IPWRI, except k = 49.4. 


Input Arguments: 

Type 

Integer (base ) 
Integer ( exponent ) 

Output Results: 

Type 
Integer 

Errors Detected; 

' Err or 

4 


Precision 

SP 

SP 

Precision 

SP- 

Cause 

Zero raised to power <= 


How Passed 
R5 
R6 


How Passed 
R5 

Fixup 

0. Return 0 


Units 


Units 


Comments ; 

Registers Unsafe Across Call: R5. 

Algorithm; 

See IPWRI. 
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ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function: 

computes log (X) in single precision. 


EOTiODUGIBUjr'/ OF THE 
page IB POOR 


Invoked by: 

Compiler emitted code for HAL/S construct of the form: 
LOG(X), where X is a single precision scalar. 

Other Library Modules: ASINH, ATANH, EPWRE , ACOSH 


Execution Time {microseconds): 140.5 


Input Arguments; 

^.yp-g- 

Scalar 


Precision 


How Passed 


Units 


Output Results: 


Scalar 

Errors Detected: 
Error # 


Precision 

SP 


How Passed 
FO 


Units 


Comments : 


Cause FixtP 

argument outside range X > 0 For X=0, return LOG(lxl) 

for X < 0, return 
maximum negative floating 
point number. 


Registers Unsafe Across Call: FO ,P1,F2 ,F3 ,F4 ,F5 , 


Algorithm: Write X = 16^ - 2“^ • w^ere Pand Q are integers, 0 < Q £ 3, and 

< M < 1. F, Qf nnd M are fo-und by fixed-point calculations. Let A - 1, 

B = 0, if M > At" , and A - h, B = 1 otherwise. 

Let Z = (M-A)/(M+A). Then log (X) = (4P-Q-B) log 2 + log ( (l+Z) / (1*Z) ) , 

Log ( (1+Z) / (1-z) ) is computed by an approximation of the form: 

,Rw2 

W + W (r r) 

s-w 

where W = 2z, and the values of the constants are; 

R= X'408D8BC7' - 0.55291413 S = X' 416A298C' = 6. 6351437 
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HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 

-Ji 

— 

Source 

! Member Name: 

Size 

of Code Area; 

70 

Hw 

Stack 

Requirement; 0 Hw 

Data 

CSECT Size: 

30 

Hw 

Other 

^ Intrinsic 

Library Modules Referenced : 

□ 

None 

Procedure 




ENTRY POIMT PESCjFIlPTIONS 

Primary Entry Name: 

Function: 

Computes sine(X) in single precision. 

Invoked by; 

El Compiler emitted code for HMj/S construct of the form; 
SIN(X), where X is a single precision scalar. 

□ Other Library Modules; 


Execution Time (microseconds); -ir X _< tt; 124.5 

X > TT or X <-Tr; 123.6 


Input l^gximents! 
Ty£e 
Scalar 


Precision 

SP 


How Passed 
FO 


Units 

radians 


Output Results : 
Scalar 


Precision 

SP 


How Passed 
FO 


Units 


Errors Detected; 
Error # 

8 


Cause 

argument outside of, range; 
ix| <77.2^8 


return |/2 
2 


Comments: Called as a library by compiler : uses only fixed-point registers 

R1 and R3, which are restored at exit from an intrinsic. 

Registers Unsafe Across Call r Rl^ R3 ,R4 ,F0,Fl,F2,F3 ,F4 ,F5. 

Algorithm; Let |x| • — = Q+R, Q an integer, 0 <_ R < 1. Add 4 to Q if 

the sine is desired and X < 0, and add 2 to Q if the cosine is desired. 

Since sin(-x) = sin (x+-rr) , and cos (x) = sin (7[ + x) . This reduces the problem 

2 

of computing sin (x) for X > 0. 


(Continued on next page) 
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SIN 

SIN 

Algorithm (Con't) 

IT 

Since Q has been adjusted, it is only necessary to compute sin(j(Q+R)), 

7T 

if Qq = Q "lod 8, then this is equal to sin ( j(Qo+R) ) . The eight cases of 
this yield, through simple trigonometric identities; 

TT 

Q =0: sin(R • — ) 

o 4 

1 ; cos ( (1-R) * ( 

2: COS(R • ^ ) 

3; sin ( (1-R) • J) 

4: -sin(R • 

5: -cos ( (1-R) • ^) 

6 ; -cos (R • ^) 

7: -sin ((1-R) ' 

Let R^ = R in octants 0, 2, 4, 6 and R^ = 1-R in octants 1, 3, 5, 7. 

TT TT 

We compute sin (R • — ) in octants 0, 3, 4, 7 and cos (R ' — ) in octants 
O 4 0 4 

1, 2, 5, 6, and negate the result in octants 4, 5, 6, 7. 

TT TT # 

Sin(R • -r) and cos (R • x) computed by polynomial approximations. 

P 4 o 4 
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SIN 


SIN 

Algor ithm ( Con ' t ) 


The form of the approximation for sine is; 


sin (R 






where the values of the constants are; 



- X’40C90FDB' 

= ,78539819 

^1 

= X'C014ABBC 

= .080745459 

to 

= X'3EA32F62' 

= ,0024900069 

^3 

= X'BD25B368' 

= -.000035943 


The form of the approximatin for cosine is; 


7T. - 2 _ 4 _ 6 

oosCRq • 4) = 1 + 


where the values of the constants are: 



= X'C04EF4EE' 

= -,30842483 

^2 

= X'3F40ED0F’ 

= .0158510767 

^3 

= X'BE14P17D' 

= -.000319570 
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Secondary Entry Name; COS 

Function: 

Computes cosine (X) in single precision. 

Invoked by; 

m Compiler emitted code for HAL/S construct of the form; 
COS(X), where X is a single precision scalar, 

□ Other library modules; 

Execution Time (microseconds) : -TT £ X ^ tt: 122.1 

X > TT or X <-7r; 123,1 




Input Arguments: 

Type Precision How Passed Units 

Scalar SP FO radians 




Comments ; . 

See SIN Comments . 

Registers Unsafe Across Call: R1 ,R3 ,R4 ,F0 ,F1 ,F2 ,F3 ,F4 ,F5 . 
Algorithm: 

See SIN Algorithm. 
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r 


SINH 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 
Stack Requireit'ent: 


Size of Code Area: 

Hw Data CSECT Size: 


0 Procedure 


□ Intrinsic 

Other Library Modules Referenced i 
ENTRY POINT DESCRIPTIONS 


Primary Entry Name: ^ - 

Function : 

Computes hyperbolic sine in single precision.. 


PAG® 


Invoked by: 

(x] Compiler emitted code for HAL/S construct of the form; 
SINH(X), where X is a single precision scalar. 


[*~1 Other Library Modules; 


Execution Time (microseconds) ; 


Input Arg-uments; 
Scalar 


. 1 < |xl < 1.75366E+2! 235.6 

sconds) ; 2.0394E-4 < |x| < 1: 80.7 

[x| < 2.0394E-4: 40.0 

Precision How Passed 

SP FO 


Units 


Output Results: 

?y£g. 

Scalar 


Precision 


How Passed 
FO 


Units 


Errors Detected: 
Error # 

9 


Cause 

Argument outside range 
Ixi < 175.366 


Fixup 

Return maximum positive 
floating point number. 


Comments : 

Registers Unsafe Across Call: F0,Fl,F2,F3 ,F4,F5 . 

Algorithm: If X < 2.04E-4, then sinh(x) = x. If 2.04E-4 £ ix| < 1, 

then sinh(x) is computed via a polynomial approximation. 

The form of the polynomial is; 

3 5 7 

sinh(x) = X + C^X + C^X + C^X 
where the values of the constants are; 


(Continued on next page) 
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SINK 


SINK 

Algorithm (Con ' t) 


= XM02AAAB8' = 0.16666734 
= X'3F221E8C = 0.008329912 


= X'3DD5D8B3' 


.2039399E-3 


Otherwise, sinh(|xj) or 
V, equal to 0.4995050, 
fomula is as follows: 


cosh(lxj) is calculated using EXP, The number 
is introduced to control rounding errors and the 


sinh (x) 


1 , (x+logv) 


(x+logv) 

e 



, 1 , (x+logv) 

cosh(x) = •^(® 


(x+logv) 


•) 


the identities sinh(-x) = -sinh(x) and cosh (-x) = cosh(x) ^e used 
to recover sinh(x) and cosh(x) from sinh(lx|) and cosh(|x|). 
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SIMH 


Secondary Entry Name; COSH 

Function: 

Computes hyperbolic cosine in single precision. 

Invoked by: 

0 Compiler emitted code for HAL/S construct of the form: 
SINH(x), where X is a single precision scalar. 

n other library modules; 

Execution Time (microseconds): 228.9 


Input Arguments; 
Type 
Scalar 


Precision 

SP 


How Passed 
FO 


Units 


Output Kesults; 

Scalar 

Errors Detected: 
Error # 

9 


Comments ; 


Precision 
SP ' 


How Passed Units 

FO 


Cause 

Argument outside range 
[x] £ 175.366 


Fixup 

Return maximum positive 
floating point number. 


Registers Unsafe Across Call; F0,F1,F2,F3,F4,F5. 
Algorithm; 

See SINH algorithm. 
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SOBS. 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: SQRT Size of Code Area: 

Stack Requirement: 2 Hw Data CSECT Size: 

El Intrinsic □ Procedure 

Other Library Modules Referenced: 


48 


14 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


SQRT 


Primary Entry Name: _ 

Function: 

Computes square root in single precision. 


E1^E0BITCIBIT.-TT^" OF THR 


Invoked by : ' 

[71 Compiler emitted code for HAL/S construct of the form; 

SQRT(X), where X is a single precision scalar. 

(pother Library Modules: aCOS, ASINH, EPWRE, VV10S3 , ACOSH 


Execution Time (microseconds) : 


88.3 


Input Arguments: 
Type 
Scalar 


Precision 

SP 


How Passed 
FO 


Units 


Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 


Precision 

SP 


How Passed 
PO 


Cause 

Argument outside range 
X > 0 


Units 


Fixup 

Return SQRT (i^l) 


Comments: 

Registers Unsafe Across Call: Rl, R4, R5, R6, R7, FO, Pi, F2, F3 , 

1 


Algorithm: Write X = 16 


2P-Q 


M, where 16 < M < 1, Then, \Tx = 16 


• (mT 


This fact is used to obtain a good first approximation to by approximating 
ITm by a hyperbolic approximation. 

CGontinued on next page) 
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SQRT 

SQRT 

Algorithm (Con’t) 


The form of the approximation is, for Q-0 




a - 


(|) + (|) 


r£ + E is to avoid fixed-point overflow for 
'•2 2 - , 


large M] 


where the calculations are done in fixed-point. 
The values of the constants are: 
a = X'01AE7DOO' = 1,6815948 at bit 7 
b = X'FF5B02F1' = -1.2889728 at bit 7 


X'35CFC610' = 0.42040325 at bit 0 

2 


For Q = 1, — and j are used instead of a and b. 


— = X'006B9F40' = 0.4203987 at bit 7 
4 

-= X’FFD6C0BD' = -0.3222432 at bit 7 
4 


The first approximation is improved with two passes of the Newton-Raphson 
iteration. The form of the first is: 


The form of the second, to minimize truncation errors, is: 

2 2 V. 


o 


y is returned as the answer. 
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ENTUY point DESGRIP'l'IONS 

I 

Primary Entry Name; tan 

Punction._^^^^^^^ tangent in single precision. 

Invoked by: 

Compiler emitted code for HAL/S construct of the form; 
TAN(X) , where X is a single precision scalar. 


n other Library Modules: 


Execution Time (microseconds); 164.0 


Input Arguments; 
Type 

Scalar 


Precision 


How Passed 


Units 

radians 


Ovi'^put Results: 

\ 

' Scalar 


Precision 


How Passed 


Units 


Errors Detected; 

Error # Cause Fixup 

11 Argument outside range jxj < tt.2 Retiirn 1 

12 Argument too close to singularity of Return maucimum positive 

tangent function floating point number 

Comments: 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 

L....'': 

Algorithm: Let |x| • ~ ® Q+R^ Q an integer, 0 S ^ Give the 

characteristic of jx] • ~ to X'00000008‘ for later use as a comparand, 
to determine nearness of X to a singularity. 


(Continued on next page) 
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TAN 


TAN 

Algorithm (Con't) 


We have the following table; 
Q mod 4 
0 

1 

2 

3 


tan( X ) 

tan(lx[) = tan(R • “) 

tan(jxl) = cot(d-R) ' 
tan C lx!) = -cot(R • 
tan(lx|) = -tan((l-R) * ■j) 


For Q mod 4 even, let w = R, and for Q mod 4 odd, let w 1-R 
Compute two polynomials in w, as polynomials in 



then 


P(w) 
Q(w) 
tan (w) 


= w (a^ + u) 

2 

= b + b,u + b u 
o 1 ^ 

_ rotfw) = and the above table describes how 

" Q(w) ' ^ ■ P(w)' 


tan( X ) is computed. Finally, tan(x) is computed using the identity 
tan (-x) = -tan (x) . 


The values of the constants are : 
X'C1875PDC =-8.4609032 

b = X'C1AC5D33' = -10.7727537 
0 

b = X'415B40FD' = 5.7033663 
1 : 

b = X'C028C93F' = -.15932077 
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TANK. 


HAL/S-FG LIBRARY ROUTINE DESCRIPTION 
Source Member Name: " TANK Size of Code Area: 

Stack Requirement: Hw Data CSECT Size; 

Q Intrinsic El Procedure 

Other Library Modules Referenced; EXP 


56 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


Function: 

Computes hyperbolic tangent in single precision. 


BHJPRODUCIBIIiKD/ OP TFi ’ 
OBIGINAL PAGE 13 POOR ' 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 
TANH(X), where X is a single precision scalar. 

□ Other Library Modules s 


Execution Time (microseconds): |xj 2.4414E-4: 38.2 

2.4414E-4 < |x| £ 7.QE-1: 78 . 7 , 7.0E-1 < [x] <9.011; 224.4 

9,011 < Ixl ; 42.4 


Input Arguments: 
Type 
Scalar 


Precision 

SP 


How Passed 
FO 


Units 


Output Results: 
Scalar 

Errors Detected: 
Error # 


Precision 


SP 


Cause 


How Passed 
FO 


Units 


Fixup 


Comments: 

Registers Unsafe Across Call: FO ,F1 ,F2 ,F3 ,F4 ,F5 . 

Algorithm: If |x| > 9.011, return +1 or -1, according to. the sign of X, 

If 0.7 < |x| £9.011, then (using EXP), tanh(|x|) = 1-2/ (l+e2|5^+). Restore 

sign with tanh(-x) = -tanh(x) . For .|x| £ 16~\ tanh(x) = X. 

I- ! ■ ' 

For other values of X, 16 *^1x1 < 0.7, use a rational approximation. 

where the Values of the constants are: 

a = X’BEF7EA70' - -.003782895 

j b = X'C0D08756' =-.81456511 

I c = X'41278C49' = 2.4717498 
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i ' 


5.3.3 Vector/Matrix Routine Descriptions 

This subsection presents a class of routines which 
deal with HAL/S vector/matrix operations. Some of the 
routines implement HAL/S language built-in functions while 
others implement HAL/S operators. 


■ ■ • ... 
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MMODNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: MMODNP 


Size of Code Area: 12 


Stack Requirement: 


0 Hw Data CSECT Size: 


Intrinsic 


f~) Procedure 


Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


MMODNP 


Function : , , • ^ • ... 

Moves a double precision scalar to all posit xons in an n x m partition of a 

double prsaision matrix. 

Invoked by: 

□ Compiler emitted code for HAL/S construct of the form; 

M = 0 ; where M is a double precision matrix . 

A TO B,C TO D 

□ Other Library Modules: 


Execution Time (microseconds): 6.8 + n(4.0 + 8.0m) 


Input Arguments: 
Type 
Scalar 
Integer (n) 
Integer (m) 
Integer (outdel) 
Output Results: 


Precision 

SP 

SP 

SP 

Precision 


Matrix (n,m) 


How Passed 
FO 
R5 
R6 
R7 

How Passed 
Rl Qth element 


Units 


Units 


Errors Detected: 
Error # 


Cause 


Comments: Registers Unsafe Across Call: Rl, R3, r4, r5, r6, R7, fO, FI. 

Algorithm: Uses two nested loops; 

Outer loop selects row; 

Inner loop selects column and moves scalar to current 
row/column position. 

Upon exiting inner loop, ^outdel* is added to pointer to 
output matrix location. 
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r 



MMOSNP 


hal/s-fc library routine description 


Source Member Name; MMOSNP 


Size of Code Area: 


Stack Requirement; 

El Intrinsic 


0 H w Data CSECT Size; 

n Procedure 


Other Library Modules Referenced; 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; 


MMOSNP 


'' Tm Tn n X n partition of a single precision matrix with a single 
precision scalar. 

^"□^Smpiier emitted code for HAL/S construct of the form: 

* =0. V 7 here M is a single precision matrix , 

A TO B,C TO D ' 

n other Library Modules; 

Execution Time (microseconds); 6.4 + n(4.4 + 6.4m) 


Input Arguments: 

Type 
Scalar 
Integer (n) 
Intger Cm) 
Integer (outdel) 
Output Results ; 

Type. 

Matrix (n,m) 

Errors Detected: 
Error # 


Precision 

SP 

SP 

SP 

SP 

Precision 

SP 


How Passed 


How Passed 


Units 


Units 


Cause 


comments: Registers Unsafe Across Call; Rl, R3, R4, R5, R6, R7 , FO, Fl. 


Algorithm; 


Uses two nested loops, one on n,- one on^m; _ ^ 
Inner loop selects row and col\rain of result 
matrix and moves input scalar into location. 

At exit of inner loop, pointer to matrix 
is incremented by outdel, new row is selected, and 
inner loop is executed again . « 


REPRODIJCIBILrP/ OF TUB 

mmmkh pagb is poor 
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MMIDNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MMIDNP Size of Code Area: 

Stacie Requirement: 0 Hw Data CSECT Size: 

D Procedure 
None. 


18 


0 Intrinsic 

Other Library Modules Referenced; 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 
Function: 


MMIDNP 


Moves a partition of a matrix in double precision, 


Invoked by: 

(3 Compiler emitted code for HAL/S construct of the form; 

M2=M1 - _ ? 

A TO B,C where Ml and M2 are double precision matrices. 

” A TO B,C TO 
I I Other Library Modules: 


Execution Time (microseconds): 10,8 + n{5.4 + 12,2m) for n x m matrix moved. 


Input Arguments: 
Type 

Precision 

How Passed 

Units 

Matrix (n,m) 

DP 

R2 ^ 0th element 


Integer (n) 

SP 

R5 


Integer (m) 

SP 

R6 


Integer (indel 

, outdel) DP 

R7 (indel in highest HW, outdel 
in Low HW) 

How Passed 


Output Results: 
Tj^e 

Precision 

Units 

Matrix (n,m) 

DP 

. Rl “»• element 


Errors Detected: 
Error # 


Cause Fixup 



Comments: Registers Unsafe Across Call: Rl, R2, R3, R4, R5, R6, 

F2, F3. 


R7, FO, FI, 


Algorithm; Loops on # rows ; 

Loops on # columns; 

Load and Store current element pointed to by input/output pointers ; 
Increment pointers to next row element; 

End column loop ; 

Increment input pointer by indel; 

Increment output pointer by outdel; 

End row loop; 


5-138 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 



MMISNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

w V, ^ MMISNP Size of Code Area: 

Souxce Mernbec Naitie- — 

. . 0 Hw Data CSECT Size: _ 

Stack Requirement; 

~ . P! Procedure 

(3 Intrinsic L-J 


16 


Function; Moves a partition of a single precision matrix.. 


Hw 

Hw 



^""□^Smeiler emitted code for HAL/S construct of the form; 

M2 = Ml^ Q? where Ml and M2 are single precision 

TO B, C TO matrices, 

□ Other Library Modules; 


Execution Time (microeaconds) : 10. S + n(5.4 + 9.4m) for n m matrix. 


Input Arguments; 

ijiype Precision 

Matrix(n,m) SP 

Integer(n) || 

St®5\iUel. outdel) DP 

Output Results ; 

.Jype Precision 

Matrix (n,m) 

Errors Detected; 

Error # 


SP 


How Passed 
R2 element 

R5 

R6 ^ 

R7 Chigh HW=indel,Low HW-outdel) ^ 

How Passed 


R1 0^^ element 


Cause 


Fixup 


Comments; Registers Unsafe Across Call; R1,R2,R3 ,r4,R5,R6,R7 ,F0,F1. 

Algorithm: Loop on # rows; 

Ld°i?™e’ current element point to by input/output pointers 
increment pointers to next row; 

End column loop? 

Increment input pointer by indel? 

Increment output pointer by butdel; 

End row loop; 
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MMITNP 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name: MMITNP 

size of Code Area; 

16 

Hw 

Stark Requirement: 0 Hw 

Data CSECT Size: 

0 

Hw 

Intrinsic 

n Procedure 



Other Library Modules Referenced : 

None . 






ENTRY POINT DESCRIPTIONS 




primary Entry Name; MMITNP 





Function; 

Moves a partition of a double precision matrix and stares it as single 
precision. 

Invoked by: ^ 

nn Compiler emitted code for HAL/S construct of the form; 

M2=M1 ; where M2 is a single precision matrix. 

A TO B, C TO D 

“^A TO B, G TO D' where Ml is a double precision matrix. 
r~| other Library Modules ; 


Execution Time (microseconds): io.4 + n{5.8 + 10.6m) for n x m move, 


Input Arguments: 

Type 

Matrix(n,m) 
integerCr' 


Precision 

DP 

SP 


_ .. (n) 

Integer (m) SP 

Integer (indel , outdel) DP 

Output Results : 

Type Precision 

Matrix (Ufm) 3P 


How Passed 


R2 


Qth element 
R5 
R6 
R7 


How Passed 
R1 Obh element 


Units 


Units 


Errors Detected; 
Error # 


Cause 


Fixup 


consents ; Registers Unsafe across Call-. R1,e2 ,R3 ,R 4 ,R5 ,R6,R7 ,F0,F1,F2 ,F3. 


Algorithm: Loops on # rows; 

Loops on # columns; 

Load long input element pointed to by input pointer; 

Store short into output element pointed to by output pointer; 
Increment pointer to next element; 

End column loops; 

Increment input pointer by indel; 

Increment output pointer by outdel; 

End row loop; / 
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MMIWNP 




HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 




Source Meinber Name; MMIWNP 

Size of Code Area: 18 

Kw 



Stack Retjui remen t; 0 Hw 

Data CSECT Size: 0 

Hw 



[3 Intrinsic 

Q Procedure 




Other Library Modules Referenced: 

None 









ENTRY POINT DESCRIPTIONS 


Primary Entry N«m*; 


MMIWNP 


Functioii,: Moves a partition of a single precision matrix and stores it as 
a doubl* precision matrix. 


Invoked by; - 

Compiler emitted code for HAL/S construct of the form; 

M2=M1 ; 

^ ^ where Ml is a single precision matrix,- 

M.2 ~ * 

A TO B,C TO D ' M2 is a double precision matrix. 

□ Other Library Modules: 


Execution Time (microseconds): 13.6 + n(5.0 + 11.0m) for n x m move. 


Input Arguments : 
M^^§t(n,m) 

Precision 

How Passed 

Units 

“SP 

R2 Qth element 


Integer (n) 

SP 

R5 

•'r- 

Integer (m) 

SP 

R6 


Integer (indel, outdel) DP 

R7 

. 

Output Results: 
Type 

Precision 

How Passed 

Units 

Matrix (n,m) 

DP 

R1 Qth element 

- 


Errors Detected: 

Error # Cause Fixup 


Comments: Registers Unsafe Across Call: Rl,R2,R3,R4,R5,R6,R7,F0,Fl,F2,P3. 

Algorithm: clears lower half of floating point register pair. 

Loops on # rows ; 

Loops on # columns; 

Load short input element pointed to by input pointer; 

Store long (with zeroed second word) into output element 
pointer; 

Increment pointers to next row element; 

End column loop; 

Increment input pointer by indel; 

Increment output pointer by outdel; 

End row loop; 
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MM6DN 


EAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: MM6DN Size of- Code Area: 

Stack Requirement: 2 Data CSECT Size: 

□ Procedure 


42 


Hw 

Hw 


0 Intrinsic 
Other Library Modules Referenced: None. 


‘n.jf 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; 
Function: 


MM6DN 


Multiplies two double precision matrices, 


Invoked by; , 

Q Compiler emitted code for HAL/S construct of the form; 

Ml M2, where Ml is a m x n double precision matrix V ^ 3 

M2 is a n X £ double precision matrix f r > r • 
I I Other Library Modules: 


Execution Time (microseconds): 22.2 + m(10.8 + £(21-2 + 27. 2n)) 


Input Arguments: 

matrix (m,n) 
matrix (n,£) 


Precision 


How Passed 


Units 


DP 

DP 


R2 

R3 


Qth element 
element 


(Continued on next page) 
Output Results; 

Type Precision 

Matrix (m,£) 


DP 


R1 


How Passed 
»- 0^^ element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments : 


Registers Unsafe Across Call; Rl,R2,R3,R4,R5,R6,R7,F0,Fl,P2,F3,F4,FS. 


Algorithm: Uses 3 loops: 

Innermost (on n) multiplies a row of Ml by a column of M2; 
The second loop (on £) resets the column pointer; 

The outer loop (on m) resets the row pointer. 




c 
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MM6DN 


MM6DN 

Input Argments (Con't) : 


TY£e 

Precision 

How Passed 

Units 

Integer (m) 

SP 

R5 

" 

Integer (n) 

SP 

R6 

— 

Integer (£) 

SP 

R7 

— 
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MM6D.3. 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

source Member Name: MM6D3 Size of Code Area: J2_ 

Stack Requirement: 


0 Hw Data CSECT Size: 


O intrinsic □ Procedure 

Other Library Modules Referenced: Hone. 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

E'unction: Multiplies two 3x3 double precision matrices, 

^''□^ComSler emitted code for HAL/S construct of the form; 

Ml M2, where Ml and M2 are do\able precision 3x3 matrxces, 

r~| other Library Modules ; 


Hw 

Hw 


Execution Time (microseconds): 671.6 


Input Arguments; 
Type 

Matrix (Ml) 
Matrix (m2) 

Output Results: 
TX£e 

Matrix (3,3) 

Errors Detected; 
Error # 


Precision 
DP ■ 

DP 


Precision 


DP 


Cause 


How Passed 
R2 ^ 0^^ element 
R3 


Qth element 


How Passed 
Rl ■> 0'*'^ element 


Fixup 


Units 


Units 


Comments? Registers Unsafe Across Call: Rl,R2,R3,R4,R5,R6,R7,F0,Fl,F2,F3,F4,F5. 

Algorithm; Explicitly nultiplies row by column, element by element. 

Uses BCTB to advance to each new col., and BCTB to advance 
to each new row. 
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MM6SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

MM6SN 

Size of Code Area; 

40 

Hw 

Stack Requirement: 

0 Hw 

Data CSECT Size; 

0 

Hw 

Q Intrinsic 


Q Procedure 



Other Library Modules 

Referenced; 

None . 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM6SN 

Function: Multiplies two single precision matrices. 


Invoked by: " 

1^ Compiler emitted code for HAL/S construct of the form; 

Ml M2, where Ml is a m x n single precision matrix,) f 3, 

M2 is a n X £ single precision matrix } ' ' 

□ Other Library Modules: 

Execution Time (microseconds): 22,2 + m(10,8 + £(20.2 + IS.On)), 


Precision 
SP • 

SP 


Input Arguments; 

Type 

Matrix (m,n) 

Matrix (n,£) 

(Continued on next page) 
Output Results: 

Type Precision 

Matrix (m,£) SP 

Errors Detected: 

Error # Cause 


How Passed 
R2 element 

R3 O't’h. element 


How Passed 


R1 Qth element 


Fjxup 


Units 


Units 


Comments; Registers Unsafe Across Call: Rl,R2,R3,R4,R5,R6,R7,FQ,Fl,F2,F3,P4,F5. 


Algorithm; 


Same as MM6DN . 


tIliPRODUCIBILirX OF THE 
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MM6SN 


MM6SN 

Input Arguments (Con't); 


'Type 


Precision 

How Passed 

Units 

Integer 

(m) 

SP 

R5 

- 

Integer 

(n) 

SP 

R6 

• 

Integer 

il) 

SP 

R7 
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MM6S3 


HAL/S-FG LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name: MM6S3 

Size of. Code Area: 

24 

Hw 

Stack Requirement: 0 Hw 

Data CSECT Size: 

0 

Hw 

(3 Intrinsic 

n Procedure 




Other Library Modules Referenced: None , 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: MM6S3 


Function : 


Multiplies two 3x3 single precision matrices. 


Invoked bys • 

nn Compiler emitted code for HAL/S construct of the form; 

Ml M2, where Ml and M2 are 3x3 single precision matrices. 

n other Library Modules: 

Execution Time (microseconds): 409.6 


Input Arguments : 
Ty2£ 

Matrix (Ml) 
Matrix (M2) 

Precision 
SP • 

SP 


How Passed 
R2 ->■ 0^^ element 
R3 oth. element 

Units 

Output Results; 
T^ 

Matrix (3,3) 

Precision 

SP 


How Passed 
R1 0^1^ element 

Units 

Errors Detected: 
Error # 


Cause 

Fixup 



Comments : 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,R7,F0,F1,F2,F3,P4,P5. 

Algorithm: Same as MM6D3 
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MMllDN 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 
Source Member Name; MMIIDN Size of Code Area; 
Stack Requirement: 0 H w Data CSECT Size: 

□ Intrinsic □ Procedure 
Other Library Modules Referenced: 


16 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; MMllDN 

Function: 

Transposes an n x m double precision matrix. 


Invoked by: 

[3 Compiler emitted code for HAL/S construct of the form; 

* 

T^SPOSE(M) ^ M is an n X m double precision matrix, and m and/or n/3. 

or M 

n Other Library Modules; 


Execution Time (microseconds): 8.0 + ro(5.8 + 12. 2n) 


Input Arguments: 
Type 

Matrix (n,m) 

Integer 

Integer 

Precision 

DP 

SP 

SP 


How Passed 
R2 ^ element 

R5 
R6 

Units 

Output Results : 

Type 

Matrix (m,n) 

Precision 

DP 


How Passed 
R1 '->• D'th element 

Units 

Errors Detected; 
Error # 


Cause 

Fixup 



Comments : 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,R7,P0,P1,P2,F3. 

Algorithm: Uses two nested loops: 

Outer loop selected column of input matrix/ 

Inner loop moves elements of selected column to 
corresponding row of result matrix. 
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MM11D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Names 

Stack Requirements 

GO Intrinsic 


MM11D3 Size of Code Area: 

0 H w Data CSECT Size: ^ 

□ Procedure 


Other Library Modules Referenced; None 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: NM11D3 

Functxon: Performs transpose of 3x3 double precision matrix. 


Invoked by: 

□ Compiler emitted code for HAL/S construct of the form; 

TRANSPOSE CM) , . . 

, where M is a 3x3 double precision matrix. 

or M 

□ other Library Modules: 


Execution Time (microseconds); 93.6 


Input Arguments: 
Type 

matrix (3,3) 


Precision 


How Passed 
R2 ^ 0'^^ element 


Units 


Output Results; 

T yg e . 

matrix (3,3) 

Errors Detected; 
Error # 


Precision 


Cause 


How Passed 
Rl ->• 0^^ element 


Units 


Comments : 

Registers Unsafe Across Call: Rl,R2,R4,R5,P0,Fl,F2,F3,F4,F5. 

Algorithm: Uses loop to load elements of one column into registers, 

then store into row elements of resultant for each pass 
through the loop. 
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hal/s-fc library routine description 


Source Member Name: 

Stack Requirement: 

□ Intrinsic 

Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 


Size of Code Area: 


0 H w Data CSECT Size: 
□ Procedure 


Primary Entry Name: 


MMllSN 


Functiori • • 

Transposes an n x m single precision matrix. 

Invoked by: ^ i. ^ 

0 Compiler emitted code for HAL/S construct of the form, 

T^SPOSE(M) ^ where M is an n x m single precision matrix and 

W m and/or n / 3. 

Q Other Library Modules: 

Execution Time (microseconds): 8.4 + m(5.8 + 9.4n) 


Input Arguments : 

Type Precision 

Matrix (n,m) SP 

Integer (# rows=n) SP 

Integer (# columns=m) SP 

Output Results: 

Tvoe Precision 


Matrix(ra,n) 
Errors Detected: 
Error # 


Cause 


How Passed 
R2 0^^ element 
R5 
R6 

How Passed 
Rl 0^^ element 


Fixup 


Units 


Units 


Comments: Registers Unsafe Across Call: Rl ,R2 ,R3,R4 ,R5 ,R6 ,R7 ,F0 ,Fl. 


Algorithm: 


Uses two nested loops: 

Outer loop selects which column of input matrix to use; 
Inner loop loads and stores col^lmn elements as row elements 
of result. 
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MM11S3 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

Stack Requirement: 

B Intrinsic 


MM11S3 


Size of Code Area; 


_0 Hw Data CSECT Size; 

□ Procedure 


Other Library Modules Referenced: None — 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; MM11S3 

Function; transpose of 3x3 single precision matrix. 

Invoked by ; 

[3 Compiler emitted code for HAL/S construct of the form; 

TRANSPOSE (M) where M is a 3x3 single precision matrix, 
or 

r~l Other Library Modules; 


Execution Time (microseconds): 71.8 


Input Arguments: 
Type 
Matrix 


Precision 

SP 


How Passed 


Units 


Output Results: 
Type 
Matrix 


Precision 

SP 


How Passed 
Rl 0th element 


Units 


Errors Detected: 
Error # 


Cause 


CoiTiments ; Registers Unsafe Across Call: R1,R2,R4,R5,F0,F1,F2,F3. 


Algorithm; 


Uses loop to load FO, F2, F4 with columns of input 
matrix and store them as rows of output matrix for 
columns 1 3 , rows l'^3. 




Cnlll' -I ' 
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MM12DN 


hal/s-fc library 

ROUTINE DESCRIPTION 



Source Member Name: MM12DN 

Size of Code Area; 

150 

Hw 

Stack Requirement: 22 Hw 

Data CSECT Size: 

0 

Hw 


0 Procedure 



Function, determinant of an n x n double precision matrix. 


Invoked by: 

[3 Compiler emitted code for HAL/S construct of the form; 

D = DETCM), where D is a declared double precision scalar, and 
M an n X n, doiible precision matrix, 

LJ Other Library Modules ; 


Execution Time (microseconds); for n = 2; 63 2 

^ 4: (Continued on bottom of this page) 


Input Arguments: 

Precision 

Matrix(n,n) DP ' 

Matrix (n,n) workarea DP 
Integer (n) 

Output Results ; 

Type 

Scalar 


SP 

Precision 

DP 


Errors Detected; 
Error # 
None 


Cause 


How Passed 

R2 0^^ element 
R4 

R5 

How Passed 
FO 


Fixup 


Units 


Units 


Comments; 

Registers Unsafe Across Call; F0,F1,P2,F3,P4,F5. 

^ Algorithm; 

Same as MM12SN 

i ' ' . ' , 

Execution Time (Continued) ; 

; ■ minimum time - 59.4 + 10. an^ + V + 81.2k + 115 6) 

1 k=l 

... . o n-1 

j Maximum time = 59.4 + 10 2 n- r y ran 

: ^ lu.^n + I (60.2k + 134.8k + 169.0 + 3.6n) 

I , ■ . ; k=l 

i See MM12SN LRD for a > 

scription of maximum time vs. minimum time. 
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MM12D3 


ha::./s-fc library routine description 


source Mendjer Name; ^^2D3 Size of Code Area: 

Stack Requirement: CSECT Size; 

□ intrinsic 0 Procedure 

Other Library Modules Referenced: 


g] procedure 


ENTRY POINT DESCRIPTIONS 

r, X. MM12D3 

Primary Entry Name; 

Function; 

Finds determinant of 3x3 double precision matrix. 

Invoked by; a. r x.u 

0 Compiler emitted code for HAL/S construct of the form. 

DET(M), where M is a double precision 3x3 matrix, 


0 Other Library Modules: MM14D3 


Execution Time (microseconds): 229.6 


input Argviments: 

Type 

Matrix (3,3) 


Precision 


How Passed 


0^^ element 


Units 


Output Results: 
Scalar 

Errors Detected; 
Error # 


Precision 


Cause 


How Passed 


Units 


Fixup 


Comments ; 

Registers Unsafe Across Call: P0,Fl,F2,F3,F4,P5i 

Algorithm: Uses direct code, no loops to calculate determinant. 

See algorithm for MM12S3. 
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Primary Entry Name; 


MM12SN 


Function: Finds the determinant of an n. x n single precision matrix. 


Invoked by; ' 

nn Compiler emitted code for HAL/S construct of the form; 

S DET(M); where S is declared a single precision scalar, and 
M is an n X n single precision matrix. 

(~l Other Library Modules : 


Execution Time (microseconds); for n - 2: 44.4 

for n > 4: (Continued on next page) 



Input Arguments: 


Ty£e 

Precision 


How Passed 

Units 

Matrix 

SP ■ 


R2 element 

- 

Matrix (n,n) 

workarea SP 


R4 

- 

Integer (n) 
Output Results; 

SP 


R5 


Type 

Precision 


How Passed 

Units 

Scalar 

Errors Detected 
Error # 
Hone 

SP 

Cause 

FO 

Fixup 



Comments ; 

Registers Unsafe Across Call: P0,Fl,F2,F3,F4,F5. : 

Algoritlim: DET =1.0 

FOR K = 1 TO N1 DO 
BIG = 0 
II = J1 = K 
FOR I = K TO N DO 
FOR J = K TO N D) 

IF ABS(A(1,J)) > BIG THEN 
BIG = ABS (ACI,J)) ? 

II = I; 

J1 = J? 

IF II y K THEN 
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MM12SN 


MM12SN 

Execution Time (microseconds) (Continued) : 


minimum time = 47.8 + 7.8n + Z (37.6k + 64.6k + 85.8) 

k=l 

2 2 

maximum time = 47.8 + 7.8n 4- S (41.6k + 105.8k + 127.2 + 3.6n) 

k=l 


The minimum time occurs in the event that all matrix elements 
are positive and where no row or column switching is required at 
any point of the computation. 

The maximum time occurs in the event that all matrix elements 
require complementing to obtain their absolute value, BIG changes 
on every comparison, and row and column switching are required 
at every point in the computation . 


Algorithm (Con' t) 


DET = -DET 

FOR J = K TO N SWITCH(A(I1,J) ,A(K,J) 
IF J1 K THEN 
DET = -DET 

FOR I = K TO N SWITCH(A(I, Jl) ,A(JK) ? 


switch rows 


switch columns. 


product of diagonal element 


DET = DET*A(K,K) 

FOR I = K + 1 TO N DO 

TEMPI = -A(1,K)/A(K,K) reduce 

FOR J = K + 1 TO N DO 

A(I,J) = A(I,J) + A(K,J) * TEMPI 
DET = DET*A(,N,N) last diagonal element 


If dim = 2, then special case; 

DET = A(1,1)*A(2,2)-A(1,2) *A(2,1) 
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MM12S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name; MM12S3 Size of Code Area; 


Stack Requirement; 


□ Intrinsic 


18 H w Data CSECT Size; 

El Procedure 


Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function: 

Finds determinant of a single precision 3x3 matrix. 
Invoked by; 

{ y { Compiler emitted code for HAL/S construct of the form; 
DET(M), where M is a 3x3 single precision matrix. 


nn other Library Modules: MM14S3 


Execution Time (microseconds) ; 116.0 


Input Arguments: 
Type 

Matrix (3,3) 


Precision 


How Passed 
0^^ element 


Units 


output Results: 


Scalar 


Precision 


How Passed 


Units 


Errors Detected: 
Error # 


Cause 


Comments : 


Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 


Algorithm: Uses diret inline code to calculate 

det = M M M +M M M +M M M 
aec ^'^23 31 13 21 32 


-M M M - M M M - M M M . 
31 22 13 32 "^23 11 33 ' 21 12 


5-156 


iNTERMETRiCS INCORPORATED • 701 CONCORD AVENUE ‘ CAMBRIDGE. MASSACHUSETTS 02138 • (617) 661-1040 



r 


MM13DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name; Size of Code Area: 

StacH Requirement: 0 H w Data CSECT Size; _ 

Procedure 


0 Intrinsic 

Other Library Modules Referenced: 


None 


10 


ENTRY POINT DESCRIPTIONS 


Hw 

Hw 


Primary Entry Name: MM13DN 

Function; 

Calculates TRACE of an n x n double precision matrix. 

Invoked by: 

Q Compiler, emitted code for HAL/S construct of the form; 

TRACE (M)/ where M is an n x n double precision matrix, n^3. 

I i Other Library Modules; 

ef 

Execution Time (microseconds): 12.0 + 10.2n 


Input Arguments: 
Type 

Matrix 
Integer (n) 

Output Results; 
Scalar 

Errors Detected: 
Error # 


Precision 

DP 

SP 

Precision 

DP 

Cause 


How Passed 

R2 0"^^ element 
R5 

Ho w Passed 
FO 

Fixup 


Units 


Units 


Comments : 

Registers Unsafe Across Call: R2,R4,R5,R6,F0,Fl, 


Algorithm: 


Creates a skip value of n+1; Uses loop counting down n 1^ 
to zero , each pass summing a diagonal element of the matri-x 
by using the skip value to increment from the previous 
diagonal element. 


KBPBOBUCIBILITy OF THE 

OEaiil^AL PAGE IS POOR 
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JSW13D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
source Member Dame; Sire of Code Area: 


Stack Requirement: 


^ Intrinsic 


Hv 7 Data CSECT Size: 
Procedure 


Other Library Modules Referenced: , — — 

ENTRY POINT descriptions 

^ . MM13D3 

Primary Entry Name. _______________ — 

Function: 

Calculates TRACE of a 3x3 double precision matrix. 

Smpiier emitted code for HAL/S construct of the form: 
TRACE (M) , where M is a 3x3 double precision matrix. 

Q Other Library Modules: 


Execution Time (microseconds): 19.8 


Input Arguments: 
Type 

Matrix (3,3) 


Precision 


How Passed 
r2 -*■ 0^^ element 


Units 


Output Results: 


Scalar 

Errors Detected: 
Error # 


Precision 


Cause 


How Passed 


Units 


Comments : 

Registers Unsafe Across Gall: R2,R4,F0,F1. 

Algorithm: Direct code, no loops to calculate 

^11 ^ ^2 ^3- 
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J4M13SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: Size of Code Area: 

0 Hw Data CSECT Size: _ 

Q Procedure 

None . 


Stack Requirement: 


m Intrinsic 

Other Library Modules Referenced: 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


MM13SN 


Function: 

Calculates TRACE of an n x n single precision matrix. 

Invoked by: ^ s: 

Compiler emitted code for HAL/S construct of the form; 

TRACE (M), where M is a single precision n x n matrix, nj-^S. 


□ Other Library Modules: 


Execution Time (microseconds): 8.8 + 6.2n 


Input Arguments: 

?T-Eg. 

Matrix (n,n) 
Integer (n) 

Output Results: 
Type 

Scalar 

Errors Detected: 
Error # 


Precision 

SP 

SP 


Precision 


SP 


How Passed 

R2 0^^ element 
R5 


How Passed 


FO 


Units 


Units 


Cause 


Fixup 


Comments : 

Registers Unsafe Across Call: R2,R4,R5,R6,F0,F1. 

Algorithm: Creates a skip value of n+1; uses loop counting down n— 1 to zero, 

each pass summing a diagonal element of the matrix by using the 
skip value to increment from the previous diagonal element. 
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MM13S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 


MM13S3 Size of Code Area: 


Stack Requirement: 

a Intrinsic 


Hw Data CSECr Size: 


□ Procedure 


Other Library Modules Referenced: None , 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM13S3 

Function : 

Calculates TRACE of a 3x3 single precision matrix. 
Invoked by: 

P7] Compiler emitted code for HAL/S construct of the form; 
TRACE (M) , where M is a 3x3 single precision matrix. 

I I Other Library Modules: 


Execution Time (microseconds) 


Input Arguments; 
Type 

Matrix (3,3) 


Precision 


How Passed 
R2 ->■ 0^^ element 


Units 


Output Results: 
T^^ 
Scalar 


Precision 


How Passed 


Units 


Errors Detected: 
Error # 


Cause 


Comments ; 

Registers Unsafe Across Call; R2,R4,F0,Fl. 


Algorithm: 


Straight code to calculate M^^ ^22 ^33‘ 
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MM14DN 


ROUTINE DESCRIPTION 

Size of Code Area: 258 Hw 

Data CSECT Size; . ^ Hw 

□ Procedure 

MM15DN 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM14DN 

Function: Inverts an n x n doxible precision matrix. 


HAL/S-FC LIBRARY 

Source Member Name: MM14DN 

Stack Requirement: 20 h w 

n Intrinsic 

Other Library Modules Referenced: 


Invoked by: ' 

Q Compiler emitted code for HAL/S construct of the form: 

, where M is an n x n double precision matrix, n 7 ^ 3. 

or INVERSE (M) 
f~l Other Library Modules: 


Execution Time (microseconds): for n = 2: 173.8, 

for n > 4: 63.0 + 129. 5n + 43. On^ + 65. 4n^ 


Input Arguments; 

Type 

Precision 

How Passed 

Units 

Matrix(n,n) 

DP ' 

R4 0'*^^ element 

- 

Integer (n) 

SP 

R5 


Matrix (n,n) 

workarea DP 

R7 


Output Results: 

Type 

Precision 

How Passed 

Units 

Matrix 

DP 

R2 Qth element 

- 


Errors Detected: 
Error # 

27 


Cause 

Singular matrix 


Fixup 

Return identity matrix 


Comments : 

Registers Unsafe Across Call: fO,F1,F2,F3,F4,f5. 

Algorithm: Same as MM14SN, except that pivot element divide operation 

is done by multiply 7 .ng by reciprocal to some time over 
use of long divide instruction. 
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14M14D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM14D3 Size of Code Area: 


Stack Requirement: 


18 Hw Data CSECT Size; 


Q Intrinsic 


Other Library Modules Referenced: 


E] Procedure 
MM12D3 MM15DN 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; MM14D3 


Function: 


rBPEODUCIBIIJTY TlliJ, 

OEIGINAL fage is FOOR- 


Inverts a 3x3 double precision matrix. 


Invoked by : 

12 Compiler emitted code for HAL/S construct of the form; 
^ “ 1 

M ... 

, , where M is a 3x3 double precision matrix. 

or INVERSE (M) 

I I Other Library Modules; 


Execution Time (microseconds): 795.4 


Input Arguments; 
Type 

Matrix(3, 3) 


Precision 

DP 


How Passed 
R4 otE eJ 


Units 


Output Resu3.ts; 

Matrix(3/3) 

Errors Detected; 
Error (f 


Precision 


How Passed 

R2 ->■ 0'*^^ element 


Units 


Cause Fixup 

Attempted inverse of singular matrix. Return identity matrix, 


Comments: Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 


Algorithm: Explicit code, no loops; algorithm same as MM14S3 

except that external routines used are MM12D3 and MM15DN, 
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MM14SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 
Stack Requirement; 


MM14SN 


Size of • Code Area; 


242 


20 


□ Intrinsic 

Other Library Modules Referenced ; 


Hw Data CSECT Size; 
0 Procedure 


MM15SN 


ENTRY POINT DESCRIPTIONS 


Primary' Entry Name; 


MM14SN 


Function; Inverts a single precision n x n matrix. 


Hw 

Hw 


Invoked by; 

lx I Compiler emitted code for HAL/S construct of the form; 


-1 


, . , where M is a single precision n x n matrix, n 3. 
or INVERSE (M) ' 

□ Other Library Modules ; 


Execution Time (microseconds) ; 


for n = 2 : 107 . 6 , 

for n = 4: 52.0 + 39.2n + 10 . 5n^ + 54. 6n^ 


How Passed Units 

R4 O'^^h. element 

R5 - 

R7 

How Passed Units 


R2 0^^ element - 

Cause * Fixup 

27 Matrix is singular. Return identity matrix. 

Comments: . ^ 

Registers Unsafe Across Call: FO ,F1,F2 ,F3 ,F4,F5 . 

Algorithm: For K = 1, N 

FIND MAXIMAL ELEment in row K to n, ColS , K to n 

save it as 'big*' pivot element 

save its row # as isw (K.) 

save its col # as JSW(K.) 

switch K'th and ISW (K) th. j;ow 

switch Kth and JSW(K)th col 

divide Kth col except for element by •>' BIG 

reduce matrix w. 

divide row except for Kth element by big 
replace pivot by reciprocal 

^ :j.nterchange JSW(K)th and K^h rows • 

interchange ISW(K;hh and K^h cols, 
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Input Argiiments: 
Type 

Matrix(n,n) 
Integer (n) 
Matrix (n,n) 
Output Results: 


Precision 


workarea 


SP- 

SP 

SP 


Precision 


Matrix 

Errors Detected: 
Error # 


SP 



MMI4S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

MM14S3 

Size of Code Area: 

80 


Hw 

Stack Requirement; 

18 Hw 

Data CSECT Size; 


2 

Hw 

r~| Intrinsic 


(3 Procedure 




Other Library Modules 

Referenced; 

MM12S3, MM15SN 





ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

Function: inverts a 3x3 single precision matrix. 


Invoked by; 

Q Compiler emitted code fox' HAL/S construct of the form; 

^ * ' where M is a 3x3 single precision matrix, 

or INVERSE (M) 

I I Other Library Modules: 


Execution Time (microseconds): 458.8 


Input Argtiments: 
Matrix 


Precision 

SP 


How Passed 
R4 0'*'^ element 


Units 


Output Results: 
Matrix 


Precisio n 

SP 


How Passed 
R2 0^^ element 


Units 


Errors Detected: 
Error # 

27 


Cause 

Attempted inverse of singular matrix. 


Fixup 

Return an identity 
matrix. 


Comments : 

Registers Unsafe Across Call: F0,Fl,P2,F3,P4,P5. 


Algorithm: Explicit code, no loops to calculate; 

inverse M = , where adjM. . = detM. _ . and |m|= detM 

1M| x,j ' ' 

uses external determinant routine (MM12S3) and in event of determinant 
of zero, calls identity matrix routine .(MM15SN) . 
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I I 




_ 

MM15DN 



hal/s-fc library 

ROUTINE DESCRIPTION 



Source 

I Member Name: MM15DN 

Size of Code Area; 

18 

_ Hw 

Stack 

Requirement: 0 Hw 

Data CSECT Size; 

0 

_ Hw 


Intrinsic 

Q Procedure 



Other 

Library Modules Referenced: 

None 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

Function: 

Creates an n x n double precision identity matrix. 

Invoked by: 

[3 Compiler emitted code for HAL/S construct of the form; 

*0 

M , where M is an n x n doiible precision matrix, 
nn other Library Modules: MM14DN, MM14D3 

2 

Execution Time {microseconds): 15.6 + 5. On + 11. 2n 


Input Arguments: 
Type 

Integer (n) 


Precision 

SP 


How Passed 
R5 


Units 


Output Results : 
Type 

Hatrix(n,n) 

Errors Detected: 
Error # 


Precision 

DP 


Cause 


How Passed 
R1 0'^^ element 


Fixup 


Units 


Comments : 

Registers Unsafe Across Call: R1,R4,R5,R6,R7,F0,F1,F2 ,f3. 

Algorithm; Uses two nested loops, each counting 1 to n. 

Inner loop compares both loop indices; if equal, 
stores 1.0 at current row/column position; otherwise 
stores 0,0. 
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MM15SN 


HZUli/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

MM15SN 

Size of Code Area: 

14 

Hw 

Stack Requirement; 

0 Hw 

Data CSECT Size; 

0 

Hw 

0 Intrinsic 
Other Library Modules 

Referenced; 

O Procedure 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name; MM15SN 

Function; 

Creates an n x m identity matrix. 

Invoked by; 

pc I Compiler emitted code for HAL/S construct of the form; 

' — ^ *0 . . . . . 

M , where M is a single precision n x n matrix, 

pT) other Library Modules; MM14SN, MM14S3 

2 

Execution Time (microseconds); 10.0 + 5.2n + 9.6n 


Input Arguments; 
Type 

Integer (n) 


Precision 

SP 


How Passed 
R5 


Units 


Output Results: 
Type 

Matrix (n,n) 


Precision 

SP 


How Passed Units 

Rl -+• O^^element — 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call; R 1 ,R 4 , R5 ,R6,R7 ,F0 ,Fl,F2 , P3 . 

Algorithm: Uses two nested loops, each counting 1 to n. 

Inner loop checks both loop indices j if equal, stores 
a 1.0 at current row/column position, otherwise stores 0.0, 
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Primairy Entry Names 


MM17D3 


Function; Raises a 3 x 3 double precision matrix to a power. 


Invoked by: 

□ Compiler emitted code for HAL/S construct of the form, 
M^, where M is a 3x3 double precision matrix ^ and 
I is an integer literal 2. 

Q Other Library Modules: 

Execution Time (microseconds) : t^n next page) . 


Input Arguments: 

Type 
matrix( 3,3) 
integer (power) 
Matrix (3, 3) workarea 

Output Results; 

T^£e 

Matrix (3,3) 


Precisxon 
DP- 
SP 
DP 


Precision 

DP 


How Passed 
R4 0^^ element 
R6 
R7 

How Passed 

Oth element 


Units 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments: Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 


Algorithm; 


Loads R5 with literal 3 and drops in MM17DN code. 
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MM17D3 


■ « — 


MM17D3 

Execution Time (microseconds) ; 

Exponent - 2: 991.6 

Exponent > 2: 1071.2 • (# of significant zeros in exponent) 
+ 2137.2 • (# of ones in exponent) 

- 2105.8 
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MM17D3 


Secondary Entry Name: 


MM17DN 


Function; Raises an n x n double precision 


matrix to a power. 


Invoked by ; 

□ Compiler emitted code for HAL/S construct of the form> 

where M is an n x n double precision matrix, and 
I is an integer literal 1- 
Q Other library modules: 


Execution Time (microseconds) : 


(See below) 


Input Arguments: 

Type 

Matrix (n,n) 
integer (n) 
integer (t>ower) 
matrix (n,n) workarea 
Output Results; 

Type 

Matrix (n,n) 

Errors Detected: 

. Error # 


Precision 

dF 

SP 

SP 

DP 

Precision 

DP 


HoWf Passed 
R4 Qth element 

r5 

R6 

How Passed 
R2 -y 0'*^ element 


Cause 


Fixup 


Units 


Units 


Comments: 

Registers Unsafe Across Call: OF THE 

Algorithm; Same as MM17SN. -t-» \ tC! WUW 


ORIGINAL PAGE IS POOR 


Execution Time (microseconds) ; 


2l,Bn^ + 19,4n^ + 6.2n + 43.4 if power 2. 

124.2 + TMULT(KA) + TMOVE(KA-l) + 8.6 KB + 3.4 KC if power > 2. 

where : 2 o 3 

TMULT = 9,6 + 6.2n + 19 -4n + 27. 8n 

KA = ( ( (# significant I's in axponent)-!) -2) t (# of significant 
O's in exponent) 

2 

TMOVE = 10.2 + 11. On 

kb - total number of significant I's and O's- in exponent 
KC = # of significant I's in exponent. 
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MM17S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; MM17S3 


Stack Requirement! 


□ Intrinsic 


Size of- Code Area: 78 


20. H w Data CSECT Size; 

(•33 Procedure 


Other Library Modules Referenced; 


None. 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: MM17 S3 


Function; Raises a 3x3 single precision matrix to 


a power. 


Invoked by; ' 

j y| Compiler emitted code for HAL/S construct of the form; 

M f where M is a 3x3 single precision matrix, and 
I is an integer literal ^1* 

□ Other Library Modules; 


Execution Time (microseconds) : (On next page) 


Input Arguments: 

Type Precision 

matrix (3,3) SP ’ 

integer (power) SP 

matrix (3,3) workarea SP 

Output Results; 

Type Precision 

Matrix SP 


How Passed 
R4 0^^ element 

R6 
R7 

How Passed 
R2 0^^ element 


Uni ts 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments : 

Registers Unsafe Across Call: F0,Fl,F2,F3,F4,F5. 

Algorithm: Loads R5 with literal 3 and drops into MM17SN code. 
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MM17S3 


%ir' 

MM17S3 

Execution Time (microseconds) ; 

exponent = 2: 623.6 

exponent > 2: 681,6 ‘ significant zeros in exponents) 

+ 1358.0 ‘ (# ones in lexponent) 

- 1305.0. 


|y 
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MM17S3 


Secondary Entry Name; 

Function: Raises an n x n single precision matrix to a power. 


Invoked by; 

Q Compiler emitted code for HAL/S construct of the form: 

M , where M is an n x n single precision matrix, and 
I is an integer literal ^ 1. 
j_J other library modules: 


Execution Time (microseconds) ; (See below) . 


Input Argmnents: 


Type 

matrix (n,n) 
integer (n) 
integer (power) 
matrix (n,n) workareas 
Output Results : 


Precision 

SP 

SP 

SP 

SP 


Type 


Precision 


Matrix (n,n) 


SP 


Errors Detected: 
Error # 


How Passed Units 

R4 O'th element 

R5 - 

R6 - 

R7 

How Passed Units 

R2 element - 


Cause Fixup 


Comments : 

Registers Unsafe Across’Call: FO ,P1 ,F2 ,F3 ,F4 ,P5 . 

Algorithm: 

Let 

A = original matrix, R - result matrix, T 

= temporary matrix. 


1) 

_ R = A A 



2) 

locate first one bit in exponent, remove 

it, remember bit position 


3) 

go to step 6 



4) 

T = R 



5) 

II 



6) 

Remove exponent bit at current position. 

increment position. 



If bit was 0 go to step 9. 



7) 

T = R 



8) 

R T A 



9) 

If any bits left iii exponent, go to step 

4, otherwise R is 


complete. 

Execution Time (microseconds) ; 

if power = 2: then 15.6n^ + 15. 2n^ + 5.8n + 43.8 
if power > 2: same as in MM17DN except 

2 3 

TMULT = 10.0 + 5.8n + 15.2n + 15. 6n 

TMOVE - 10.2 + 8.6n^ 
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■ 4 >', 

'4JT 


4 .>' 



MV6DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Meniber Name: MV6DN Size of Code Area: 

Stack Requirement: -0 H w Data CSECT Size: ■ — — 0 — 

El Intrinsic □ Procedure I 

Other Library Modules Referenced: NONE — 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MV6DN ’ 

Function: {Multiplies a double precision mxn matrix by a length n double precision 
vector. 

Invoked by; ' 

Compiler emitted code for HAL/S construct of the form; 

M V where M is an mxn matrix by a length n^ 

’ V is a length n double precision vector. 

r~i Other Library Modules; 


Execution Time (microseconds): 12.0 + m(19.3 + 26. On) 


Input Arguments: 
Type 

Matrix (m.n) 
Vector (n) 
Integer (m) 
Integer (n) 
Output Results; 
Ti£e 

Vector (m) 


Precision 

DP 

DP 

SP 

SP 


Precision 

DP 


How Passed 

R2 element 

R3 element 

R5 
R6 

How Passed 
R1 -^0^ element 


Units 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments: ^ ^ 

Registers Unsafe Across Call; R1,R2,R3,R4,R5,R6,R7,F0,F1,F2,F3,F4,F5. 

Algorithm; 2 nested loop, outer loop selecting rows of matrix, 

inner loop summing products of vector elements with current 
row elements. 
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MV6D3 


Primary Entry Name: 

Function: Multiplies a 3x3 double precision matrix by a length 3 double precision 

vector. 

^''□^Smpiler emitted code for HAL/S construct of the form; 

M ^ where M is a double precision 3x3 matrix, 


M V, 


V is a double precision 3-vector. 


n other Library Modules : 

Execution Time (microseconds); 304.4 


Input Arguments: 

Matrix (3,3) 
Vector (3) 

Output Results: 
Type 

Vector(3) 

Errors Detected: 
Error # 


Precision 

DP 

DP 

Precision 

DP 


How Passed 
R2->0^“ element 
R3 ->- 0 element 


How Passed 
Rl->0^^' element 


Cause 


Fixup 


Units 


Units 


Comments : 


Registers Unsafe Across 


Call; R1,R2,R3,R4,R5,R6,R7,F0,F1,F2,F3. 


Algorithm: 2 nested loops, outer loop selecting rows of matrix, 

inner loop summing products of vector elements with current 
row elements . 
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H. #• 



J 



MV6SN 


Source Member Name: 
Stack Requirement; 


MV6SN 


ROUTINE DESCRIPTION 



Size of Code Area: 

18 


Data CSECT Size: 


0 


Hw 


12 Intrinsic 

Other Library Modules Referenced; 


□ Procedure 

NONE 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 


Function: Multiplies a single precision mxn matrix by a length n single precision 
vector . 

Invoked by: 

I Compiler emitted code for HAL/S construct of the form; 

M V, where M is an mxn single precision matrix, 

y is a length n single precision vector. 

I I Other Library Modules; 

Execution Time (microseconds): 11.2 + m(11.0 + 18. 4n) 

Input Arguments: 


Type 

Precision 

Matrix (m,n) 

-'■■■sp 

Vector (n) 

SP 

Integer (m) 

SP 

Integer (n) 

SP 

output Results; 


Type 

Precision 

Vector (n) 

SP 

Errors Detected: 


Error # 



How Passed 
R2 0 ;cn el emen t 
R3 ">■ Otn element 
R5 
R6 

How Passed 
Rl->- 0^^ element 


Cause 


Fixup 


Units 


Units 


Comments : 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,R7,F0,F1,F2,F3»F4,F5. 

Algorithm: Exchange contents of Rl and R3 for more efficient addressing. 

Uses 2 nented loops, outer loops selecting rows of matrix, 
inner loop suinming products of vector elements with current 
row elements. 
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MV6S3 

- 1 

HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name : 

MV6S3 

Size of Code Area: 

20 Hw 

Stack Requirement: 

0 Hw 

Data CSECT Size; 

0 Hw 

0 Intrinsic 


n Procedure 


Other Library Modules 

Referenced : 

NONE 



ENTRY POINT DESCRIPTIONS 
Primary Entry Name: MV6S3 


Function: Multiplies a 3x3 single precision matrix by a length 3 single precision 
vector. 

Invoked by: 

^ Compiler emitted code for HAL/S construct of the form; 

^ Y where M is a single precision 3x3 matrix, 

V is a single precision 3-vector. 

I I Other Library Modules: 


Execution Time (microseconds); 137,6 


Input Arguments: 

Matrix (3,3) 
Vector (3) 


Precision 

SP 

SP 


Output Results : 
Type 

Vector(3) 


Precision 

SP 


I Errors Detected: 

Error # 

i i 


Cause 


How Passed Units 

R2 0^, element 
tn. 

R3 “>■ 0 element - 


How Passed Units 

th 

R1 ->-0 element 


Fixup 


Comments : 

Registers Unsafe Across Call; R1 ,R2 ,R3 ,R4 ,R5 ,R6 ,F0 ,Pl ,F2,F3 . 

Algorithm: Loops 3 times, each pass summing product of vector elements with 

current row elements and storing result in proper element output 
vector. 


i ■ 

j 

I 

i 
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VM6DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: VM6DN Size of Code Area: 

Stack Requirement; 0 H w Data CSECT Size: 

□ Procedure 
NONE 


26 


Hw 


0 Hw 


Q Intrinsic 

Other Library Modules Referenced; 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


VM6DN 


Function: Multiplies length n double precision vector and nxm double precision 

matrix. 

Invoked by: , 

m Compiler emitted code for HAL/S construct of the form; 

. iHr 

V M where V is a double precision n-vector, n ^ 3. 

M is a double precision nxm matrix, n 3» 

□ Other Library Modules: 


Execution Time (microseconds): 23.2 + m(23.2 + 27. 6n) 


Input Arguments: 
Type 

Vector (n) 

Matrix (n,m) 
Integer (m) 
Integer (n) 
Output Results: 

Vector(m) 

Errors Detected: 
Error # 


Precision 

DP 

DP 

SP 

SP 

Precision 

DP 


Cause 


How Passed 
R2 ->-0t|i e lament 

R3 ->-0^ element 
R6 

R5 

How Passed 
R1 element 


Fixup 


Units 


Units 


Comments : 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,R7,F0 jFl,P2,F3,F4,F5. 

Algoritlim: uses 2 nested loops: 

Outer loop selects matrix column. 

Inner loop sums products of vector elements with matrix cloumn 
elements. 
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VM6D3 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name: VM6D3 

Size of Code Area; 

24 

Hw 

Stack Reguirement; 0 Hw 

Data CSECT Size: 


n Hw 

0 Intrinsic 

r~| Procedure 



Other Librarv Modules Referenced: 

NONE 



1 ' 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: vm6D3 ' 


Function: Multiplies a length 3 double precision vector by a 3x3 double 

precision matrix. 


Invoked by: 

Compiler emitted code for HAL/S construct of the form; 
* 

^ where V is a double precision 3-vector, 

M is a double precision 3x3 matrix . 

□ Other Library Modules: 


Executii^ Time (microseconds) : 227.8 


Input Arguments: 
Type 

Vector (3) 
Matrix (3,3) 

Output Results; 
Type 

Vector (3) 

Errors Detected: 
Error # 


Precision How Passed Units 

DP R2 element ■ - 

DP R3 -*■ element 


Precision 

DP 


How Passed Units 

. ^"th ^ ^ 

R1 ->0 element 


Cause 


Fixup 


Comments: 

Registers Unsafe Across Call; R1,R2,R3,R4 ,r5,F0,P1,F2,F3,F4,F5, 

Algorithm; s^ves pointer to input vector (R2) so that R2 can be used 

to address both input vector and matrix by appropriate loading. 
Loops 3 times : 

Loads elements of vector into F0,F2,F4; 

Switches R2 to point to matrix; 

Sums products of column elements with vectbr elements; 
Restore R2 to point at vector; 

Make next pass. 
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VM6SM 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name; VM6SN Size of Code Area: 

Stack Requirement; ^ Hw Data CSECT Size; 

a Intrinsic □ Procedure 

Other Library Modules Referenced: 


22 


Hw 

0 Hw 


ENTRY POINT DESCRIPTIONS 


VM6SN 


Primary Entry Name: 

Function: Multiply a length n single precision vector by a nxm single 

precision matrix 


Invoked by; 

Compiler emitted code for HAL/S construct of the form; 
V M, where V is a single precision n-vector, n ^ 3, 

M is a nxm matrix, n 3. 

I 1 Other Library Modules: 


Execution Time (microseconds): 12.4 + m(19.2 + 18. 2n) 


Input Arguments; 
Type 

Vector(n) 
Matrix(n,m) 
Integer (m) 
Integer (n) 

Output Results: 

Vector(m) 

Errors Detected: 
Error # 


Precision 

SP 

SP 

SP 

SP 


How Passed U nits 

element 
r 3 ■^0'-^ element 
R6 
R5 


Precision 

SP 


How Passed Units 

R1 element 


Cause ' Fixup 


Comments : 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,R7,F0,F1,F2,F3,F4,F5. 

Algoritlim: oses 2 nested loops; outer loop selecting matrix column i 

inner loop performs summation of products of vector elements 
and matrix column elements. 


BEPRODUCIBIMTY op the 

OBFHKAL 
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VM6S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 


VM6S3 


Size of Code Area: 


Stack Requirement: 


0 Hw Data CSECT Size: 


0 Hw 


Intrinsic 


Q Procedure 


Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


VM6S3 


Function: 


Multiplies a length 3 single precision vector by a 3x3 single 
precision matrix , 


Invoked by : 

0 Compiler emitted code for HAL/S construct of the form; 

^ where V is a single precision 3-vector; 

M is a single precision 3x3 matrix, 

□ Other Library Modules: 


Execution Time (microseconds) : 141.2 


Input Arguments: 
Type 

Vector (3) 
Matrix(3/3) 

Output Results: 
Ty£e 

Vector (3) 

Errors Detected; 
Error # 


Precision 


Precision 


How Passed 
th 

R2 ->0, , element 
tn 

R3 ->0 element 


How Passed 
Rl“>- element 


Units 


Units 


Cause 


Comments: 

Registers Unsafe Across Call: R1,R2 ,r3,R4,R5,F0,F1,F2,F3. 


Algorithm: 


Uses one loop, looping three times, each pass 
addressing new column of matrix for explicit multiplication 
and summing, by elements of vector and storing into result. 

Rl is setup to contain both input matrix and output vector pointer 
in its two halves. Then circular shifts are used to place 
appropriate pointer into high HW for use as base. 
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’ V06DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

V06DN 

Size of Code Area; 

20 

_ Hw 

Stack Requirement: 

0 

Hw Data CSEGT Size: 

0 

_ Hw 


g Intrinsic □ P^^ocedure 


Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; 

Function: Performs vector outer 

vectors. 


V06DN 


product of two 


double precision 


Invoked by: * 

[g Compiler emitted code for HAL/S construct of the form; 

VI V2, where VI and V2 are double precision n-vectors, n 7 ^ 3 , 
n other Library Modules; 


Execution Time (microseconds): 12.8 + n(5.8 + 24.4m) 


Input ArguJnents: 
Type 

vector (n) 
vector (m) 
integer (n) 
integer (m) 
Output Results: 

Matrix(u,m) 


Precision 

DP 

DP 

SP 

SP 


Precision 

DP 


How Passed 
R2 -> Oth element 
R3 O^h element 
R5 
R 6 

How Passed 
Rl 0^^ element 


Errors Detected; 
Error # 


Cause Fixup 


Units 


Units 


Comments : 

Registers unsafe Across Call: R1,R2,R3,R4 ,r5,R6,R7,F0,F1,F4,F5. 

Algorithm: Uses two loops on size of matrix (n); 

Inner loop multiplies element of VI by each element of 
V2 creating a row of result matrix. 

Outer loop moves to next element of VI and moves 
pointer to next row of result matrix. 
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V06D3 


Source Member Name: V06D3 

Stack Requirement: ?_ 


ROUTINE DESCRIPTION 



Size of Code Area: 

22 

Hw 

Data CSECT Size: 

0 

Hw 


□ Procedure 



V06D3 


Primary Entry Name; 

Function: Computes vector outer product of length 3 double precision vectors. 

Invoked by: ^ « 

□ Compiler emitted code for HAL/S construct of the form: 

VI V2, where VI and V2 are double precision 3-vectors, 

I } other Library Modules: 

Execution Time (microseconds): 251.0 


Input Arguments: 
Type 

Vector(3) 

Vector(3) 

Output Results: 
Ty£e 

Matrix (3,3) 

Errors Detected: 
Error # 


Precision 
DP ■ 

DP 


Precision 

DP 


Cause 


How Passed 
R2 ->■ oth element 
R3 0^^ element ^ 

How Passed Units 

R1 element 

Fixup 


Comments : 

Registers Unsafe Across Call: R1,R2,R3 ,r4,R5,R6,F0,F1. 

Algorithm: Same algorithm as V06DN except that loop extents are 

set to literally 3. 
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V06SN. 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

V06SN 

Size of Code Area: 

20 

Hw 

Stack Requirement: __ 

0 Hw 

Data CSECT Size; 

0 

Hw 

(3 Intrinsic 

Q procedure 



Other Library Modules 

Referenced : 

None. 




ENTRY POINT DESCRIPTIONS 


V06SN 


Primary Entry Name: 

Function. Calculates vector outer product of 2 single 

precision vectors. 

Invoked by: 

in Compiler emitted code for HAL/S construct of the form; 

VI V2, where VI and V2 are single precision n-^vectorSf n 3, 

I I Other Library Modules; 


Execution Time (microseconds): 14.2 + n(5.8 + 14.4m) 


Input Arguments: 


Precision 


How Passed 

Units 

vector (n) 

SP • 


R2 qTA element 


vector (m) 

SP 


R3 0th element 


integer (n) 

SP 


R5 


integer (m) 

SP 


R6 

_ 

Output Results: 


Precision 


How Passed 

Units 

Matrix(n,m) 

Errors Detected: 
Error # 

SP 

Cause 

Rl -»• o^th. element 

Fixup 



Comments : 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,R7,P0,F1,P4,P5. 

Algorithm: same as V06DN 
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V06S3 


hMj/s-pc library routine description 


Source Member Name : 

V06S3 

Size of • Code Area; 

20 

Hw 

Stack Requi rement : 

0 Hw 

Data CSEGT Size; 

0 

Hw 

£3 Intrinsic 


Q Procedure 



Other Library Modules 

Referenced; 

None . 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name; VOSS 3 ■ . 

Function: calculates vector outer produce of 2 single precision length 

3 vectors. 


■1th 

'’tjr 


Invoked by. 

I yj Compiler emitted code for HAL/S construct of the form. 
VI V2f where VI and V2 are single precision 3-vectors, 

Q Other Library Modules; 

Execution Time (microseconds) ; 160.6 


Input Arguments; 
Type 

Vector (3) 
Vector (3) 

Precision 

■ 

SP 


How Passed 
R2 -> orh element 
R3 -> Qth element 

Units 


Output Results: 
Tyge 

Matrix (3,3) 

Precision 

SP 

• 

How Passed 
R1 -t oth element 

Units 


Errors Detected: 
Error # 


Cause 

Fixnp 




Comments; 

Registers Unsafe Across Call; Rl,R2,R3,R4,R5,R6,F0 ^Fl. 

Algorithm: Same algorithm as V06DN except that loop extents 

are set to literally 3. 



5-184 • 

INTERMETRICS INCORPORATED ■ 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 





WODN 



HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name: WODN 

Size of Code Area: 

6 

Hw 

Stack Requirement: 0 Hw 

Data CSECT Size; 

0 

Hw 

0 Intrinsic 

Q Procedure 



Other Library Modules Referenced; 

None . 

— 



ENTRY POINT DESCRIPTIONS 


Primary Entry Namej 


WODN 


Function: 

Generates a double precision vector of length. Uf all of whose elements 

are the same. 

Invoked by: > 

i7“l Compiler emitted code for HAL/S construct of the form; 

V = S, where V is a double precision vector, S is a double precision 

» scalar. 

|y| Other Library Modules: 

W10D3 

Execution Time (microseconds): 7.0 + 5. In 


Input Arguments: 

T^ype 

Scalar 
Integer (n) 


Precision 

DP 

SP 


HoW Passed 
PO 
R5 


Units 


Oiatput Results: 
Vector 


Precis.ion 

DP 


How Passed 
R1 -t 0'^^ element 


Units 


Errors Detected: 
Error # 


Cause 


Comments ; 


Registers Unsafe Across Call; R1,R4/R5>F0,F1, 


Algorithm; Uses loop counting down length (n) ; Stores input scalar 
into one element of vector on each pass through loop. 
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woDira* 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

W0DNR,-p 

.size of Code Area: 

6 

Hw 

Stack Requirement; 

0 Hw 

Data CSECT Size: 

0 

Hw 

0 Intrinsic 


D Procedure 



Other Library Modules : 

Referenced: 

None. 




ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


WODNP 


Function; 


Fills a column of a double precision matrix with a double 
precision scalar. 


Invoked by: , 

Q Compiler emitted code for HAL/S construct of the form; 

M =0; where M is a double precision matrix . 
n , * . 

n Other Library Modules: 


Execution Time (microseconds) : 7.0 + 7.2n 


Input Arguments: 
Type 
Scalar 

Integer (outdel) 
Integer (length) 
Output Results; 

SXEE 

Vector (length) 

Errors Detected: 
Error # 


Precision 

DP 

SP 

SP 

Precision 

DP 

Cause 


How Passed Units 

PO 
R7 

R5 - 


How Passed Units 

R1 Qth element — 


Fixup 




Comments ; 

Registers Unsafe Across Call: Rl,R4,R5,R7 jF0,Pl. 

Algorithm: Loops 'length' times; 

Each pass through loop stores input scalar into vector 
element pointed to by R1 and then increments R1 by outdel, 


tliit^RODUCiBiLrrY of the 

i3 POOB. 
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WOSN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

WOSN 

Size of Code Area; 


^ HW 

Stack Requirement; 

0 Hw 

Data CSECT Size; 

0 

HW 

(vl Intrinsic 


□ Procedure 



Other Library Modules 

Referenced: 

None 




ENTRY POINT DESCRIPTIONS 


Prima:^ Entry Name; 


. WOSN 


Function: 


Generates a vector of length n, all- of whose elements are the same, 


Invoked by; 

Q Compiler emitted code for HAL/S construct of the form; 

V = S , where V is a single precision vector ^ S is a single precision 

scalar, 

in other Library Modules; 

VV10S3 

Execution Time (microseconds): 7.0 -f- 5.6n 


Input Arguments; 
Type 

Scalar 
Integer (n) 

Precision 

SP 

SP 


How Passed 

FO 

R5 

Units 

0 

Output Results; 
Type 

Vector (n) 

Precision 

SP 


How Passed 

R1 -t 0^^ element 

Units 

Errors Detected; 
Error # 


Cause 

Fixup 



Comments : 

Registers Unsafe Across Call; R1,R4,R5,F0,F1. 

Algorithm; Uses loop counting down length of vector (n) ; Stores 
input scalar into one element of vector bn each pass 
through loop. 
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WOSNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

Stack Requirement: 

m Intrinsic 


WOSNP 


Size of Code Area; 


0 H w Data CSECT Size; 

Q Procedure 


Other Library Modules Referenced: None, — ___ — — 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name; WOSNP , 

Function; Moves a single precision scalar to all elements of a 
column of a single precision matrix. 

Invoked by ; . ^ 

Compiler emitted code for HAL/S construct of the form; 

M 0; where M is a single precision matrix . 

n,* 

Q Other Library Modules; 

Execution Time (microseconds); 7.0 + 6. On 


Input Arguments: 

Type 

Scalar 

Integer (outdel) 
Integer (length) 

Output Results ; 

Type 

Vector (length) 


Precisxon 

SP 

SP 

SP 

Precision 


How Passed 
FQ 
R7 
R5 

How Passed 
R1 ->• O'tb element 


Units 


Units 


Errors Detected: 
Error # 


Cause 


Comments : 

Registers Unsafe Across Call: R1,R4/R5,R7,F0,P1. 

Algorithm; Loops 'length.' times; 

Each pass through loop -stores input scalar into vector 
element pointed to by Rl and then increments R1 by outdel. 
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WIDN 


HM./S-PC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: Size of Code Area: 


Stack Requirement: 


Cxl Intrinsic 


HW Data CSECT Si?e: 
□ Procedure 


Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 

Function; Moves a length-n double precision vector. 

(Also used to move matrices) . 

Invoked by: = " 

[2 Compiler emitted code for HAL/S construct of the form; 

= y, where X is a length— n double precision vec^r, 
Y is a length-n double precision vector, 

n other Library Modules: 

Execution Time (microseconds); 4.2 + 10.2n 


Input Arguments: 
Type 

Vector (n) 
Integer (n) 


Preorsion 


How Passed 


Units 


Output Results: 
Type 

Vector (n) 

Errors Detected : 
Error # 


Precis xon 
DP 


Cause 


How Passed 
Hi O'^^h arg^ent 


Units 


Fixup 


Comments : 


Registers Unsafe Across Call: Rl,R2,R4,R5,F0^Fl, 


Algorithm: 


Loop n times; using indexing, BCTB on length; load and store 
each element, last element first. 
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W1D3 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Names 

Stack Requirement: 

m Intrinsic 


W1D3 


Size of Code Area; 
m Data CSECT Size: _ 

P Procedure 


Other Library Modules Referenced; - 

ENTRY POINT DESCRIPTIONS 
Primary Entry Name; W1D3 

Function; Moves a double precision 3’-vector, 


Invoked by; 

|3T] Compiler emitted code for HAL/S construct of the form; 
X - Y, where X and Y are double precision 3-vectors 


r~| Other Library Modules; 


Execution Time (microseconds): 2S.2 


Input Arguments: 

Ty£6 

Vector( 3 ) 


Precision 

DP 


How Passed 
R2 -*• Qth element 


Units 


Output Results; 
Type 

Vector(3) 


Precision 

DP 


How Passed 
Rl -t obh eleme: 


Units 


Errors Detected: 
Error # 


Cause 


Comments; 

Registers Unsafe Across Call: RLfR2,R4,F0,Fl,F2,F3,F4,F5, 

Algorithm; Load, then store each element. 


EEPKOWJcromrrv OF the 
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VV1D3P 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name; 

VV1D3P 

SilSe of Code Area; 

IS 

Hw 

Stack Requirement: 

0 HW 

Data CSECT Size; 


0 Hw 


Intrinsic 

Other Library Modules Referenced; 


□ Procedure 
None 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


W1D3P 


Function: Moves a length 3 double precision vector or row or column of a 

matr.iK to a vector or row or column of a matrix. 

Invoked by : 

El Compiler emitted code for HAL/S construct of the form; 

V = M, , where M is a 3x3 matrix and V is a 3-vector. 

1 ,* 

n other Library Modules: 


Execution Time (microseconds): 46.0 if neither input nor output is contiguous, 

. 48,4 if either input or output is contiguous. 


Input Arguments: 
Type 

Vector(3) 

Integer (Indel) 
Integer (Outdel) 

Output Results : 
Type 

Vector(3) 

Errors Detected; 
Error # 


Precision 

DP 

SP 

SP 


Precision 

DP 


How Passed 
R2 0th einment 
R6 
R7 


How Passed 
Rl Oth element 


Units 


Units 


Cause 


Fixup 


Comments: Performs single setup of size and then uses WlDNP. 

Registers Unsafe Across Call: Rl,R2,R4,R5 ,R6,R7,F0,Pl. 


Algorithm; Initialize R5 with literal 3; Fall into WTDNP routine; 

r 6, R7 specify distance in HW between input and output vector 
elements, respectively. 
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W1D3P 


Secondary Entry Name: VVIDNP 

Function: Moves length n double precision vector or row or column of 

a matrix to a row or column vector . 

Invoked by: 

Compiler emitted code for HAL/S construct of the form: 

V - 15 , where M is an nxm matrix, V is an n-vector. 

1 '* 

Q other library modules; 


Execution Time (microseconds); 11. 4n + 10.2 if neither input nor output is 

contiguous, 11.4 + 12.6 if either input or output is contiguous. 


Error # 


Input Arguments; 


How Passed 

Units 

Type 

Precision 

Vector (n) 

DP 

R2 -*■ Qth element 
R6 
R7 
R5 

— 

Integer (Indel) 
Integer (Outdel) 
Integer (n) 
Output Results; 

SP 

SP 

SP 

- 

Type 

Precision 

How Passed 

Units 

Vector (n) 
Errors Detected; 

DP 

Rl -> 0^^^ element 



Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call; R1,R2,R4 ,r5,R6,R7,F0,F1. 

Algorithm; Tests outdel, of 0, sets it to 4(HW); Tests indel, if 0, sets it 
to 4 (HW) ; Loops ' length ' times , adding indel to input pointer and 
outdel to output pointer each time. Each loop moves current input 
element to current output element. 
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«itr ■■■jr' 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: WISN 

Stack Requirement: Q H w 

(3 Intrinsic 

Other Library Modules Referenced: 
ENTRY POINT DESCRIPTIONS 


Size of Code Area: 

8 

Hw 

Data CSECT Size: 

0 

Hw 

Q Procedure 




None 


Primary Entry Name: 

Function: Moves a length-n single precision vector. 

(Also used to move matrices) . 

Invoked by; - 

nn Compiler emitted code for HAL/S construct of the form; 

Vl = V2, where VI and V2 are single precision vectors of length n. 


n Other Library Modules: 


Execution Time (microseconds): 4.2 + 7.8n 


Input Arguments: 
Type 

Vector (n) 
Integer (n) 

Output Results: 
Type 

Vector (n) 

Errors Detected; 
Error # 


Precision 

SP 

SP 


Precision 

SP 


How Passed 

R2 0^^^ element 
R5 


How Passed 


R1 ->• 0'^^^ element 


Units 


Units 


Cause 


Fixup 


Comments ; 


Registers Unsafe Across Call: R1,R2,R4,R5,F0,F1, 


Algorithm: Loop n times using indexing and BGTB on length. Load, then 

store each element, last element first. 
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W1S3 


H7>L/S-FC library routine description 
W lS3 size of Code Area: 


W1S3 


X. W1S3 Size of coae ftiea. 

Source Member Name: vvxi2 

.. 0 Hw Data CSECT Size: _C 

Stack Requirement: id — 

n procedure 

m Intrinsic i— I 

None. 

Other Library Modules Referenced: _ _ . 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name; wl ^ — ~ 

Function: ygctor move, length 3, single precision. 

Invoked by: ^ nar/q construct of the form; 

□ Compiler emitted code for HAL/S construe 

_ _ j .,o avp sinctle precision 3—vectors. 

VI = V2, where VI and V2 are smgxe p 

Q other Library Modules; 

Execution Time (microseconds): 16.8 


Input Arguments; 

Type 

Vector (3) 


Precision 

SP~~^ 


How Passed 
R2 ->• 0th element 


Units 


Output Results : 
Type 

Vector (3) 

Errors Detected: 
Error # 


Precision 

SP 


Cause 


How Passed 
Rl ■-> Qtn element 


Units 


®““;gi.ters unsafe Across Call. R1.R2 ,R4 ,F0 ,P1,F2,F3,F4 ,U5. 

, ;.lgorith.. Simple Uoa4-Utore sequence for each ele„enf. 




,„TB.CS INCOHPORATEO . 101 CONCOHO « 


W1S3P 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name; Size of • Code Area: 

Stack Requirement; 2 Data CSECT Size: 

□ Intrinsic □ Procedure 

Other Library Modules Referenced; 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


W1S3P 


Primary Entry Name; 

Function: Moves an SP 3-vector (or row or colmn of a matrix) to 

a. 3-vector (or row or colmn of a matrix) when elements are not contiguous. 

Invoked by; 

Compiler emitted code for HAL/S construct of the form; 

V = M , where M is a 3x3 matrix, and 

V is a 3-vector. 

□ Other Library Modules; 

Execution Time (microseconds): 38.4 if neither input nor output is contiguous. 

40.8 if either input or output is contiguous. 


Input Arguments; 
Type 

Vector (3) 
Integer (indel) 
Integer (outdel ) 
Output Results; 

V ector ( 3 ) 

Errors Detected: 
Error # 
None. 


Precision 
SP • 

SP 

SP 


Precision 

SP 


Hoy Passed 
R2 O^h element 
R6 
R7 

How Passed 
Rl 0”*^^ element 


Units 

Hw 

Hw 

Units 


Cause 


Fixup 


Comments: performs simple setup of size for use by WISNP code. 

Registers Unsafe Across Call; Rl,R2,R4,R5,R6,R7,P0,Fl. 

Algorithm; Initialize R5 with literal 3; 

Fall into WISNP routine? 

R6, R7 specify distance in HW between input and output vector 
elements respectively. 
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W1S3P 


Secondary Entry Name; 


WlSNP 


Function; a length-n single precision, 

Invoked by; 

g co^pue. --- - rJr;-veo.c. 

If * 

Q other library modules; 


Input Arguments: 

Vector(n) 
Integer (indel) 
Integer (outdel) 

Integer (length) 

Output Results; 

Type 

Vector(n) 

Errors Detected: 
Error # 
None 


Precision 

SP 

How Passed 

Units 

R2 ->■ Otn element 
R6 

Hw 

■ SP 

R7 

Hw 

SP 

SP 

R5 


Precision 

How Passed 

Units 

SP 

Rl e- element 



Cause 


Fixup 


C°mi“="“egisters Unsafe Reross Calli 'la'.Ra ,R4,R5,R6,R7 ,F0,F1. 
Rigorith.: 

riirhdp»l to output pointer eacu tinie. 

outaei no ^ a- 4 -r^ mirrent output element, 

current input element to current oux-t-u 
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VVITN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: ,W1TN 


Size of Code Area: 


Stack Requirement: 


0 Hw Data CSECT Size: 


tn Intrinsic 


□ Procedure 


Other Library Modules Referenced! 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 
Function: ^ 


WITN 


* Moves a length n double precision vector and converts it to single 
precision. (Also used to move matrices) . 

Invoked by: . 

□ Compiler emitted code for HAL/S construct of the form; 

VI = V2, where V2 is a length n double precision vector and VI is a 
single precision vector of declared length n. 
n other Library Modules; 


Execution Time (microseconds): 4.2 + ^’.On 


Input Arguments: 
Type 
Vector 
integer (n) 


Precision 

DP 

SP 


How Passed 
-*■ 0^^ element’ 
R5 


Units 


Output Results: 
Type 

Vector (n) 


Precision 


How Passed 
R1 0^^ element 


Units 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments : 

Registers Unsafe Across Call: Rl,R2,R4 ,R5,F0,F1. 

Algorithm; Using indexing and BCTB on length, loops, loading long and 
storing short, last element first. 
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W1T3 


hal/s-fg library routine description 
S ource Member Name: Size of Code Area: 

Sback Requirements 0 H w Data CSECT Size: — 

m Intrinsic □ procedure 


12 Hw 


0 Hw 


Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 


Function: ^oves a length 3 double precision vector and converts it to 

. single precision* 

Invoked by: 

(3 Compiler emitted code for HAL/S construct of, the form; 

VI = V2, where VI is a single precision 3-vector, and 
V2 is a double precision Si-vector . 

n other Library Modules ; 

Execution Time (microseconds): 21.2 


Input Argximents; 
Type 

Vector (3) 


Precision 

DP 


How Passed 
R2 0''^^ element 


Units 


output Results: 

Vector (3) 

Errors Detected: 
Error # 


Precision 

SP 


Cause 


How Passed 
Qth element 


Fixup 


Units 


Comiaents: 

Registers Unsafe Across Call: R1,R2,R4,F0,F1,F2,F3,F4,P5, 

Algorithm: Simple Load/Store for each element. 


EEPRODUCIBir m cr- >■ i 
DMgmal mk: iv,os" 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


W1T3P 


Source Member Name: W1T3P 


Size of Code Area: 14 


Stack Requirement: 


Hw Data CSECT Size; 


Intrinsic 

Other Library Modules Referenced: 


□ Procedure 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; W1T3P 

Function: Moves a length 3 double precision vector or row or column of a matrix 
to a single precision vector or row or column of a matrix. 

invoked by; ' 

Pn Compiler emitted code for HAL/S construct of the form: 

V=M ^ Where V is a single precision 3-vector and M is a double precision 
3x3 matrix. 

n other Library Modules: 


Execution Time (microseconds): 38.4 if neither input nor output is contiguous, 

40.8 if either input or output is contxguous. 


Input Arguments; 

Type 

Vector(3) 
Integer (indel) 
integer (outdel) 

Output Results ; 

Type 

Vector (3) 

Errors Detected; 
Error # 


Precision 

DP 

SP 

SP, 


Precision 


How Passed 
R2 element 

R6 
R7 


How Passed 
Rl 'VO'^h element 


Units 


Units 


Cause 


Fixup 


Comments : 

Registers Unsafe Across Gall: Rl,jR2,R4»R5,R6,R7»F0,Fl 

alrtor-i i-hm- Loads R5 with literal 3 , 

■ ■ Falls into WlTNP routine. 
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yyiT3p 


Secondary Entry Namie: 


WITNP 


Function: Moves a double precision length or row column vector to a single precision 
length or row or column vector. 


Invoked by: 

0 Compiler emitted code for HAL/S construct of the form: 

V=M ^ Where V is a declared ienth n single precision vector and 
M is a double precision nxm matrix. 


n other library modules: 


Execution Time (microseconds): 8,6n + 10,2 if neither input nor output is 

contiguous. 8.6n + 12.6 if either input or output is contiguous. 


Input Arguments; 
Type 

Vector (n) 
Integer (outdel) 
Integer (indel 
Integer (n) 
Output Results : 

Type 

Vector (n) 

Errors Detected: 
Error # 


Precision 

DP 

•SP 

SP 

SP 

Precision 

SP ’ 


How Passed 

R2 element 

R7 
R6 
R5 

How Passed 

R1 ->■ element 


Units 


Units 


€ 


Cause 


Fixup 




Comments ; 

Registers Unsafe Across Call: Rl,R2,R4,R5,R6,R7,F0i,Pl, 

Algorithm: if outdel=0, set to 2 (HW); • 

If indel=0, set to 4 (HW) ; 

Loops 'length' times, adding indel to input pointer and 
outdel to output pointer each time. Each loop moves current 
input element to current output element. 
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WIWN . 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Name : 
Stack Requirement; , 


WIWN 


Size of Code Area: 1-0 


Hw Data CSECT Size; 

Q Procedure 


0 - 


Hw 

Hw 



Primary Entry Name 
Function; 


WIWN.. 


Moves a length-n single precision vector and converts it to doiible 
prLision. • 

Invoked by; ’ , ^ ^ ^ 

13 compiler emitted code for HAL/S construct of the form; 

X - Y, where Y is a single precision length n vector, 

X is a double precision length n vector, 

I 1 Other Library Modules: 

Execution Time (microseconds): 8.4 + 9. On 


Input Arguments: 
Type 

Vector (n) 
Integer (n^ 

Output Results; 
Type 

Vector{n) 

Errors Detected; 
Error # 


Precision 

SP 

SP 


Precision 

DP 


How Passed 

R2 0 '^^ element 
R5 


How Passed 
R1 -»■ 0^1^ element 


Cause 


Fixup 


Units 


Units 


Comments: 

Registers Unsafe Across Call; Rl,R2,R4,R5,F0,Pl. 

Algorithm: clear PO, Fl. Loop using indexing on BCTB, last element fxrst. 

Load short element into FO, Store long FO/Fl element. 
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WIW3 


HAL/S-FC LIBRARY ROUTINE DESCKCPTION 
Source Member Name; W1VI3 Size of Code Area: 

0 H w Data CSECT Size: _ 
□ intrinsic □ Procedure 

Other Library Modules Referenced: • 


12 


Stack Requirement: 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 


Function: Moves a length 3 single precision vector and converts it to 

doubJ.e precision. 

Invoked by: " 

^ I Compiler emitted code for HAL/S construct of the form; 

X = Y, where Y is a single precision 3-vector, and 
X is a doifble precision 3-vector. 

r~l other Library Modules : 


Execution Time (microseconds): 


Input Argvmients: 
Type 

Vector (3) 


Precision 


SP 


23.8 


How Passed 
R2 0^^ element 


Units 


C 




Output Results: 

Vector (3) 

Errors Detected: 
Error # 


Precision 


DP 


Cause 


How Passed 
R1 0'*'^ element 


Fixup 


Units 


Comments : 

Registers Unsafe Across Call: Rl,R2,R4,F0,Fl. 

Algoritlmi: clears FI; 

Then explicit code to load (SP) each element of input 
vector and store (DP) into each element of result vector. 
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W1W3P 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Mender Name : 

Stack Requirement: 

0 Intrinsic 


W1W3P 


Size of Code Area; 


0 Hw Data CSECT Size: 
0 Procedure 


Other Library Modules Referenced; None ■ — 

ENTRY POINT DESCRIPTIONS 
Primar;'/ Entry Name; VV1W3P 

Function; Moves a single precision length 3 vector or row or column of a 
matrix, to a double precision vector or row or column of a matrix^ 

Invoked by: ' 

pn Compiler emitted code for HAL/S construct of the form; 

“ ='FT , where V is a double precision 3-vector, M is a single 
precision 3x3 matrix. 

n other Library Modules; 


Execution Time (microseconds): 44.8 if neither input nor output is contiguous. 

47-2 if either input or output is contiguous . 


Input Arguments : 

Type 

V ector ( 3 ) 
Integer (indel) 
Integer (outdel) 

output Results; 

Type 

Vector (3) 

Errors Detected; 
Error # 


Precision 

SP 

SP 

SP 

Precision 


How Passed 
R2 -*■ 0th element 
R6 
R7 

How Passed 
R1 ^ Qhh element 


Units 


Units 


Cause 


Comments: Sets up length for use by VVIWNP. 

Registers Unsafe Across Call; R1,R2,R4,R5,R6,R7,F0,F1. 

Algorithm: Loads R5 with literal 3, falls into WlSNP. 
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VV1W3P 


Secondary Entry Name; VVIWNP 

Function; Moves a length n single precision row or column vector to a 
double precision column vector. 


Invoked by: 

|x I Compiler emitted code for HAL/S construct of the form; . 4 . ^ 

V = M , where V is declared as a length n double precision vector ,, and 

ir* M is an nxm single precision matrix. 

Q Other library modules; 

Execution Time (microseconds); I 0 . 2 n + IS.O if either input or output is 

contiguous. 10 . 2 n + 12.6 if neither input nor output is contiguous . 


Input Arguments; 
Type 

Vector (n) 

Integer Coutdel) 
Integer (indel) 
Integer (h) 

Output Results ; 

Type 

Vector (n) 


Precision 

SP 

SP 

SP 

SP 


Precision 

DP 


How Passed 
R2 Oth element 
R7 
R 6 
R5 

How Passed 
R1 oth element 


Units 


Units 


Errors Detected; 
’ Error # 


Cause 


Fixup 


Comments; . _ _ 

Registers Unsafe Across Call: Rl,R2,R4/R5»R6fR7,F0,Fl, 

Algorithm; Clears FI. If outdel = 0, set to 4(HW); if indel = 0, set to 2 (HW) 

Loop 'length* times, adding indel to input pointer and outdel to 
Output pointer each time. Each loop moves current input 
element to current output element. 
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HAL/S-PC LIBRARY ROUTINE DESCRIPTION 

Source Member Name; w2nN Size of Code Area; Hw 

Stack Requirement: 0 H w Data CSECT Size; _0_ Hw 

E3 Intrinsic □ Procedure 

Other Library Modules Referenced: NONE 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name; W2DN ‘ 

Function: Add two double precision vectors of lenth jfi. 

(Also used to move add mattices) . 

Invoked by; , 

□ Compiler emitted code for H.AL/S construct of the form; 

V1+V2, where VI and V2 are double precision vectors of length 3. 

□ Other Library Modules: 


Execution Time (microseconds): 8.8 + 20, 6n 


Input Arguments: 
Type 

Vector (n) 
Vector (n) 
Integer (n) 

Output Results: 

Vector (n) 

Errors Detected; 
Error # 


Precision 

DP 

DP 

SP 


Precision 

DP 


How Passed 
R2 ->0th element 

R3 element 

R5 


How Passed 


Rl->0'*^^ element 


Units 


Units 


Cause 


Fixup 


Comments : 

Registers Unsafe Across Cali: Rl,R2,R3,R4,R5,F0,Pl. 

Algorithm: uses indexing in load, add, store sequence controlled by BCTB on 

length. 

Loading of an element is done with two LE instructions instead 
of on LED due to addressing inadequacies of R3 which is the input 
pointer. 
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ENTRY POINT PESCRIPTIOMS 


Primary Entry Name; W2P3 

Function; Adds two double precision 3-vectors. 


^^il"compiler emitted code for HAL/S construct of the form; 
VI + V2, where VI and V2 are double precision 3-vectors, 


n other Library Modules; 


Execution Time (microseconds); 51.4 


Input Arguments; 
Type 

Vector (3) 
Vector (3) 


Precision 

DP 

DP 


How Passed 
R2 ->Oth element 
r3 element 


Units 


Output Results : 
Type 

Vector (3) 

Errors Detected; 
Error # 


Precision 


Cause 


How Passed 
Rl-J-ot^ element 


Fixup 


Units 


Comments ; 

Registers Unsafe Across Call: R1,R2,R3,R4,F0,F1,P2,P3,F4,F5, 

Algorithm; Loads F0,F2,P4 with first half of 

Loads F1,F3,F5 with second half of each elemnt of V2f peculiarities of R3 

Adds double from Vl to PO, F2, F4; 

Stores double into elements of result. 
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W2SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Neune: W2SN Size of Code Area; 

Stack Requirement; Q H w Data CSECT Size: __ 

0 Intrinsic □ Procedure 

Other Library Modules Referenced: NONE 


10 


Hw 


0 Hw 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 


Function: Add two single precision vectors of lenth n . 

(Also used to add two matrices). 

Invoked by: 

(3 Compiler emitted code for HAL/S construct of the form; 

VI + V2, where VI and V2 are single precision vectors of lenth 3, 

□ Other Library Modules; 

Execution Time (microseconds): 8.4 + 13.6n 


Input Arguments: 
Type 

Vector (*i) 
Vector (n) 
Integer (n) 
Output Results: 
Type 

Vector (n) 

Errors Detected; 
Error # 


Precision 

SP 

SP 

SP 


Precision 

SP 


How Passed 
R2 -^Oth element 
r3 -+ 0hh element 
R5 


How Passed 
R1 -^O^h element 


Units 


Units 


Cause 


Fixup 


Comments : _ . „ 

Registers Unsafe Across Call: Rl,R2fR3,R4,R5,P0,Fl. 

Algorithm; Uses indexing in load, Add, Store sequence controlled by BCTB 
on lenth. 
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W2S3 


HAL/S-FC LIBFiARy ROUTINE DESCRIPTION 


Source Member NcUtve; 

Stack Requirement: 


Size of Code Area: 


0 Hw Data CSECT Size: 


Ef) Intrinsic I 

Other Library Modules Referenced: NONE 


□ Procedure 


12 Hw 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; W2S3 

Function: Add two single precision 3-vectors » 


Invoked by; * 

jF| Compiler emitted code for HAL/S construct of the form; 
Vl + V2; where VI, V2 are single precision 3-vectors. 


□ Other Library Modules; 


Execution Time (microseconds): 29.6 


Input Arguments! 
Type 

Vector (3) 
Vector (3) 


Precision 

SP 

SP 


How Passed 
R2 ->• 0th element 
R3 element 


Units 


Output Results; 
Type 

Vector (3) 


Precision 

SP 


How Passed 
Rl -♦•Oth element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments: 

Registers Unsafe Across Gall; R1,R2,R3,R4,F0,F1,F2,F3,F4,F5. 

Algorithm: Loads elements of Vl into F0,F2,F4, 

Adds elements of V2 respectively. 

Stores F0,F2,F4 into elements of result, 
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W3DM. 

HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name; W3DN 

Stack Requirement: 0 Hw 

B Intrinsic 

Other Library Modules Referenced: 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: W3DN 

Function: subtracts one double precision length n-vector from another. 

{Also used to subtract matrices) . 

Invoked by: ^ - 

Compiler emitted code for HAL/S construct of the form; 

VI - V2, where Vl and V2 are double precision vectors of length 7 ^ 3 
n other Library Modules: 


Size 

of Code Area: 

16 

Hw 

Data 

CSECT Size: 

0 

Hw 


Q Procedure 


Execution Time (microseconds) : 


6.0 + 22 . 7n 


Input Arguments; 
Type 

Vector (n) Vl 
Vector (n) V2 
Integer(n) 
Output Results; 

Vector(n) 


Precis xon 
DP 
DP 
SP 

Precision 

DP 


How Passed 
R2 Qth element 

R3 Oth element 

R5 

How Passed 
Rl -4- 0^^ element 


Units 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments : 

Registers 


Unsafe Across Call: Rl,R2,R3,R4,R5,F0,Fl. 


Algorithm: Exchange contents of R2/R3 for addressing considerations. 

Uses indexed load, subtract, store sequence controlled by BGTB 
on length. Load of minuend elements is done with two LB 
instructions due to use of R3 as index. 
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W3D3 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Member Name: W3D3 

Size of Code Area; 

24 

_ Hw 

Renni remeiffh: ^ Hw 

Data CSECT Size: 

0 

_ Hw 

Intrinsic 

Q Procedure 



Other Library Modules Referenced; 

NONE 



ENTRY POINT DESCRIPTIONS 




Primary Entry Name: W3D3 





Function; Subtracts two double precision vectors of length 3 


Invoked by: 

Compiler emitted code for HAL/S construct of the form; 
^ VI - V2 where VI and V2 are double precision 3-vector 


( I Other Library Modules; 


Execution Time (microseconds) : 55.4 


Input Arguments; 
T ype 

Vector (3) VI 
Vector ( 3) V2 


Precision 

DP 

DP 


Output Results: 
Vector (3) 


Precision 

DP 


How Passed Units 

R2 0th element ■ - 

R3 ->• 0th element 

! 

How Passed Units 

R1 element 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments; 

Registers Unsafe Across Call: R1,R2,R3,R4,F0,F1. 

Algorithm: Exchange contents of R2 and R3 for addressing considerations. 

Load minuend elements into FO/FI, F2/P3, F4/F5 using two LE 
instruction each because of R3 addressing rules. 

Subtract subtrahend elements 

Store results using STED into result location. 
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ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ^^SN 

Function: Subtracts one length n single precision vector from another. 

(Also used to subtract matrices) , 

Invoked by; . 

(3 Compiler emitted code for HAL/S construct of the form; 

V2 - VI, where vl and V.2 are single precision vectors of length 3 . 

r~l other Library Modules: 


Execution Time (microseconds) : 8.4 + 13. 6n 


Input Arguments: 


Vector (n) V2 
Vector (n) VI 
Integer (n) 
Output Results: 
Type 

vector (n) 

Errors Detected: 
Error # 


Precision 


Precision 


Hoy Passed 
R2 ->■ Oth element 
R3 0 "*^^ element 
R5 

How Passed 
R1 -*■ 0^^ element 


Units 


Units 


Cause 


Comments : 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,F0,F1. 

Algorithm: Uses indexed load, subtract, store sequence controlled by a 

BCTB loop on 'length'. 
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W3S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: W3S3 


Size of Code Area: 


12 Hw 


Stack Requirement: 

Intrinsic 


_Hw Data CSECT Size: 
□ Procedure 


0 Hw 


Other Library Modules Referenced: NONE 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: W3S3' 

Function; Subtracts two single precision vectors of length 3 


Invoked by; - 

nn Compiler emitted code for HAL/S construct of the form; 
V1-V2 whre VI and V2 are single precision 3-vectors. 


r~l Other Library Modules: 


Execution Time (microseconds): 29.6 


Input Argvunents; 
Type 

Vector (3) VI 
Vector { 3)V2 


Precision 

SP 

SP 


Hovr Passed 
R2 -^O^h element 
R3 ->•0'*^^ elemnet 


Units 


Output Results: 


Vector (3) 

Errors Detected: 
Error # 


Precision 


Cause 


How Passed 
Rl -+0th element 


Fixup 


Units 


Comments ; 

Registers Unsafe Across Call: Rl,R2,R3,R4,F0,Pl,P2,F3,F4,F5. 

Algorithm: minuend elements into F0,F2,F4 

Subtract subtrahend elements from F0,F2, F4 respectively 
Store F0 ,f2,f 4 into result elements. 
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I 



Primary Entry Name ; W^DN 

Function: Multiplies each element of a double precision length n vector by 


a double precision scalar. 

(Also used to multiply matrix by scalar) , 

Invoked by: - 

pn Compiler emitted code for HAL/S construct of the form; 

V S, where V is a double precision vector of length ^3, and 
S is a double precision scalar. 

□ Other Library Modules: 


Execution Time (microseconds) : 


7.0 + 23. 4n 


Input Arguments: 

yype 

Vector (n) 
Scalar 
Integer (n) 
Output Results; 

Vector (n) 


Precision 


Precision 

DP 


How Passed 

R2 O'^h. 

FO 

R5 

How Passed 
R1 ->• 0'*'^ element 


Errors Detected: 
Error # 


Cause 


Comments; 

Registers Unsafe Across Call: R1,R2,R4,R5,F0,F1,P2,F3. 

Algorithm: Uses BCTB loop to count down 'length', performing load, 

multiply, store for each element. 


I I 
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W4D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: W4D3 

Stack Requirement: 0 H w 

E3 Intrinsic 

Other Library Modules Referenced: 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

Function; Multiplies each element of a double precision vector of length 

3 by a double precision scalar. 

Invoked by; 

Q Compiler emitted code for HAL/S construct of the form; 

V S, where V is a length 3 double precision vector, and 
S is a double precision scalar. 

r~| other Library Modules; 

Execution Time (microseconds): 68.4 


Size of Code Area: 
Data CSECT Size: __ 
□ Procedure 
None. 


18 


Hw 

Hw 


Input Arguments: 

Scalar 
Vector (3) 

Output Results: 
Type 

Vector (3) 

Errors Detected; 
Error # 


Precision 

DP 

DP 

Precision 

DP 

Cause 


How Passed 
R2 ->• element 


Units 


How Passed 
Rl ->■ 0^^ element 


Units 


Fixup 


Comments : 

Registers Unsafe Across Call; R1,R2,R4,F0,F1,F2,F3. 

Algorithm; simple load, multiply, store sequence for each element. 
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VV4SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: W4SN Size of Code Area; 

Stack Requirement: 0 H w Data CSECT Size: 2_ 

E3 Intrinsic □ Procedure 

None. 

Other Library Modules Referenced: 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

Function: Multiplies a length-n single precision vector by a single 

precision scalar. (Also used to multiply matrix by scalar) . 

Invoked by: ^ 

Compiler emitted code for HAL/S construct of the form; 

V S, where V is a single precision vector of length 5 ^ 3, and 
S is a single precision scalar. 

n Other Library Modules; 



Execution Time (microseconds): 


7.0 + 14. On 


Input Arguments: 

Type 

Precision 

Scalar 

SP 

Vector (n) 

SP 

Integer (n) 

SP 

Output Results: 

Type 

Precision 

Vector (n) 

SP 


Errors Detected: 
Error # 


How Passed 

FT3 

R2 Obh element 
R5 


How Passed 
Rl ^ 0"*-^ element 


Cause 


Fixup 


Comments: 

Registers Unsafe Across Call: R1,R2,R4,R5,F0#F1,F2,F3. 

Algorithm: Uses BCTB loop to count down 'length' , performing load, 

nmlt-inlv. store for each element. 


I I 

.... 
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W4S3 


HAI./S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: W4S3 Size of Code Area: — - •— ' 

Stack Requirement: Q _« w Data CSECT Size: ’ 

0 intrinsic □ Procedure 

Other Library Modules Referenced: ~ — 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

Function: Multiplies each element of a single precision 3-veetor by a 

single precision scalar. 

Invoked by; 

□ Compiler emitted code for HAL/S construct of the form, 

VS, where V is a single precision 3-vector, and 
S is a single precision scalar. 

Q Other Library Modules: 


□ Procedure 


Execution Time (microseconds); 38*4 


Input Arguments; 
Type 
Scalar 
Vector(3) 


Precrsion 

SP 

SP 


How Passed 
— F0""“ ■ 

R2 ->■ 0^^^ element 


Units 


Output Results: 
Type 

Vector(3) 


Precision 

SP 


How Passed 
Rl Otn element 


Units 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments: 

Registers Unsafe Across Call: R1,R2,R4,F0,F1,F2,F3* 

Algorithm; Simple load, multiply , store for each element. 


repbobucibility of tfie 

OKIGINAL PAGE Pi 
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W5DN 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Snnrne Member Name: W5DN 


Size of Code Area: 

16 

Hw 

Stack Requirement; ® 

Hw 

Data CSECT Size; 

2 

Hw 


□ Intrinsic □ Procedure 


Other Library Modules Referenced : — 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: W5DN 

Function: Divides a double precision vector of length n by s double 

precision scalar. (Also used to divide matrix by scalar) . 

Invoked by: 

13 Compiler emitted code for HAL/S construct of the form; 

V/S/ where V is a double precision vector of length 3, and 
S is a double precision scalar. 
r~] other i.ibrary Modules ; 

Execution Time (microseconds) : 37.0 + 24. 2n 


Input Arguments; 

Precision 

Type 

Scalar 

DP 

Vector (n) 

DP 

Integer (n) 

SP 


How Passed Dnits 

PO^ 

R2 0th element - 

R5 - 


Output Results; 

Vector (n) 

Errors Detected; 
Error # 

25 


Precision 

DP 


Cause 

Scalar argument is zero. 


How Passed 
Rl Oth element 


Units 


Fixup 

Store original vector as result. 


Comments; 

Registers Unsafe Across Call; Rl,R2,R4,R5,P0fFlfF2,F3. 

Algorithm; Test FO; if zero, preset quotient to 1; otherwise, compute 

1/S and then use BCTB loop to count down 'length' performing 
load, multiply (by 1/S) , store sequence for each element. 
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Primary Entry Names W5D3 

Function: Divide each element of a double precision length 3 vector by 


a double precision scalar. 


Invoked by; 

( x| Compiler emitted code for HAL/S construct of the form; 

^/S, where V is a double precision 3-vector, and 
S is a double precision scalar, 

□ Other Library Modules : 


Execution Time (microseconds) : 


98.4 


Precision 

DP 

DP 


How Passed 
PO 

R2 O^h element 


Output Results; 
Type 

Vector (3) 


Precision 

DP 


How Passed 
Rl -»• Qth element 


Units 


Errors Detected: 
Error # 


Cause Fixup 

Scalar argtmient is zero. Store original vector as result. 


Comments : 

Registers Unsafe Across Call; Rl,R2,R4,F0,Pl,P2,F3,F4,F5. 

Algorithm: Test FO; if zero, send error and set quotient to 1; 

Otherwise, quotient 1/arg is calculated and then used in simple 
Load, multiply, store sequence for each element. 
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W5SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

W5SN 

Size of Code Area: 

14 

Hw 

Stack Requirement: 

0 Hw 

Data CSECT Size: 

2 ' 

Hw 

Q Intrinsic 


f~| Pirocedure 



Other Library Modules ; 

Referenced : 

None . 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name: W5SN 

Function: 

Divides single precision vector of length n by single precision scalar. 

(Also used to divide matrix by scalar) , 

Invoked by: 

Compiler emitted code for HAL/S construct of the form: 

V/S, where V is a single precision vector of length 3, and 
S is a single precision scalar. 

□ Other Library Modules ; 


Execution Time (microseconds) : 7.2 + 18. On 


Input Arguments: 


Precision 


How Passed 

Units 

Scalar 

SP 


FO 

- 

Vector (n) 

SP 


R2 Qth element 

- 

Integer (n) 

SP 


R5 

- 

Output Results: 


Precision 


How Passed 

Units 

Vector(n) 

SP 


R1 0'^^ element 

- 

Errors Detected: 

Error # 


Cause 

Fixup 



25 Scalar argument is zero. Store original vector as 

result. 


Comments : 

Registers Unsafe Across Call: R1,R2 ,r4,r5,F0,f1,F2,P3. 

Algorithm: Test FO, if zero, set FO to 1? Uses BCTB loop to count down 

'length’ performing. Load, divide, store sequences for each element. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 



ENTRY POINT DESCRIPTIONS 


Primary Entry Name: W5S3 

Function: Divide each element of a single precision vector of length 3 by a 

single precision scalar. 

Invoked by: 

Compiler emitted code for HAL/S construct of the form; 

. V/S, where V is a single precision 3-vector, and 
S is a single precision scalar. 

□ Other Library Modules : 
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W6DN 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name: W6DN 

Size of Code Area: 

12 Hw 

Stack Requirement: 0 hw 

Data CSECT Size: 

0 Hw 

Q Intrinsic 

Q Procedure 


Other Library Modules Referenced: 

NONE 



ENTRY POINT DESCRIPTIONS 
Primary Entry Name; W6DN 
Function: Forms dot product of 


two double precision length n vectors. 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 

VI. V2, where VI and V2 are double precision vectors of length n, n 7^ 3. 

□ Other Library Modules; 


Execution Time (microseconds): 16.4 + 25. 4n 


Input Arguments: 
Type 

Vector (n) 
Vector (n) 
Integer (n) 

Output Results: 
Scalar 

Errors Detected: 
Error # 


Pr ecis ion 

DP 
DP 
SP 


Precision 


DP 


Cause 


How Passed 

R2 -h element 

R3 element 

R5 


How Passed 


FO 


Fixup 


Units 


Units 


Comments ; 

Registers Unsafe Across Call: Rl,R2,R3,R4,R5,F0,FlrF2,F3. 

Algorithm: Loads R3 into Rl for addressability advantages 
performs; 


Z Vlj_ V2. by loops counting down n ; 
i=l 

Each pass loads Vl^ multiplies by V2. and add to 
accumulated sum in FO. 
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W6D3 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Namei 
Stack Requirement: 


W6D3 


0 Intrinsic 


3 Size of Code Area: 

0 H w Data CSECT Size: 

□ Procedure 


Other Library Modules Referenced: . 

ENTRY POINT DESCRIPTIONS 
Primary Entry Name; 

Punction; Forms dot product of 2 double precision 3-vectors. 

invoked by: ^ ^ ..u ^ 

Q Compiler emitted code for HAL/S construct of the form; 

VI. V2 where VI and V2 are double precision 3-vectors. 

1 i Other Library Modules; 

Execution Time (microseconds): 71.8 


Input Arguments ; 
Type_ 

Vector(3) 

Vector(3) 

output Results; 
Type 
Scalar 

Errors Detected: 
Error # 


Precision 


Precision 


How Passed 

R2 element 

R3 element 


How Passed 


Units 


Units 


Cause 


Fixup 


Comments: _ 

Registers Unsafe Across Call: R2,R3,R4,F0,Fl>P2,P3. 

Algorithm; Moves R3 to Rl for addressability advantages. 
Performs: 


li 

r. VI- V2 via straight line code, no loops, 
_ X X 


accuramulatxng result in FO . 


5-222 




INTERMETRIGS incorporated '701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 ' (617) 661-1840 


r 



I — . . I—.-/ 





W6SN 



HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 





Size of Code Area: 


12 Hw 


TJot-mi vpinent: ^ HW 

Data CSECT Size: 


0 Hw 


12 Intrinsic 

t~1 Procedure 




Other Library Modules Referenced; 

NONE 




ENTRY POINT DESCRIPTIONS 

W6SN 

Primary Entry Name: — — 

Function: Forms dot product of two length n single precision vectors. 


Invoked by; ^ - 

□ Compiler emitted code for HAL/S construct of the form: 

VI. V2 where Vl and V2 are single precision n-vectors, n 3, 
r~| other Library Modules: 

Execution Time (microseconds): 15.2 + 16. 8n 

Input Arg^aments; 

Type 

Vector (u) 

Vector (n) 

Integer (n) 

Output Results: 

'PIES. 

Scalar 

Errors Detected: 

Error # 


Comments ; 

Registers Unsafe Across Call: R1,R2,R3,R4,F5,F0,P1,F2,F3. 

Algorithm* addressability advantages 

performs: 

n 

Z VI- V2. by a loop counting down n r 
i=l ^ ^ 

Each pass loads Vl^, multiplies by V2i and adds to 
accumulated sum in FO. 
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Precision 

SP 

SP 

SP 


How Passed 
R2 element 

R3->-0^^ element 
R5 


Units 


Precision 


How Passed 


Units 


SP 


FO 


Cause 


Fixup 



W6S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

W6S3 

Size of Code Area: __ 

10 

Hw 

Stack Requirement: 

0 Hw 

Data CSECT Size: 


OHw 


Intrinsic □ Procedure 

Other Library Modules Referenced; NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name; W6S3 

Function; Forms dot product of two single precision 3-vectors. 


■*. *■ 


Invoked by: - 

□ Compiler emitted code for HAL/S construct of the form; 
VI. V2 where VI and V2 are single precision 3-vectors. 


□ Other Library Modules; 


Execution Time (microseconds); 41.8 


Input Arguments; 
Type 

Vector (3) 
Vector (3) 

Output Results: 
Scalar 

Errors Detected: 
Error ■# 


Precision 

SP 

SP 

Precision 

SP 

Cause 


How Passed 

R2 element 

R3 element 

How Passed 

FO 

Fixup 


Units 


Units 


Comments : 

Registers Unsafe Across Call; R2,R3,R4,F0,F1,F2,F3. 

Algorithm: Calculates VI V2 +V1 V2„ + VI V2_ via direct code, no loops, 

acctunmulating result in FO. 
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VV7DN 


I 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name; VV7DN Size of Code Area: 

Stack Requirement: ^ H w Data CSECT Size; — 

g intrinsic □ Procedure 


Other Library Modules Referenced; 


None. 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


W7DN 


Primary Entry Name: 

Function: Vector negate, double precision, length n. 

(Also used to negate matrices) . 

Invoked by: 

Compiler emitted code for HAL/S construct of the form; 
-V, where V is a double precision vector of length n, 


I I Other Library Modules; 


Execution Time (microseconds); 7.0 + 11. 4n 


Input Arguments; 

STES. 

Vector (n) 
Integer (n) 

Precision 

DP 

SP 


How Passed 
R2 element 

r5 

Units 

Output Results: 
Vector (n) 

Precision 

DP 


How Passed 
R1 '->• element 

Units 

Errors Detected; 
Error # 


Cause 

Fixup 



Comments : 

Registers Unsafe Across Call; R1,R2,R4,R5,F0,F1. 

algorithm; Uses loop to count down 'n*, each pass performing load, 
negate, store sequence on current vector element. 
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VV7D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 



Function; Vector negate, double precision for vectors of length 3. 

Invoked by: ' 

nn Compiler emitted code for HAL/S construct of the form; 

-V, where V is a double precision 3-vector. 

I I Other Library Modules: 



Execution Time (microseconds): 32.4 


Input Arguments; 
Type 

Vector (3) 


Precision 

DP 


How Passed 

R2 ->■ 0'^^ element 


Units 




Output Results: 
Type 

Vector (3) 


Precision 

DP 


How Passed Units 

R1 ->• 0^^ element — 


Errors Detected: 
Error # 


Cause Fixup 


Comments ; 

Registers Unsafe Across Call: Rl,R2,R4,F0,Fl,F2,F3,F4,F5. 

Algorithm: Simple, direct code sequence, no loops. 

Performs 3 loads, 3 negates, 3 stores. 
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W7SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; VV7SN 

Size of Code Area: 

8 

Hw 

Stack Requirement: ^ 

_Hw Data CSECT Size; 

0 • 

HW 

nn Intrinsic 

r~| Procedure 




Other Library Modules Referenced: wr.np 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: W7SN 


Function: 


Vector negate, single precision, length n. 
(Also used to negate matrices) . 


Invoked by: 

^T~| Compiler emitted code for HAL/S construct of the form; 

-V, where V is a single precision vector of length n, nf^3. 


I I Other Library Modules: 


Execution Time (microseconds) ; 7.0 + 9. On 


Input Arguments: 
Type 

Vector (n) 
Integer (n) 

Precision 

SP 

SP 


How Passed 

R2 ->- 0^^ element 
R5 

Units 

Output Results: 
Type 

Vector (n) 

Precision 

SP 


How Passed 

R1 -> 0"^^ element 

Units 

Errors Detected; 
Error fr 


Cause 

Fixup 



CoiEiients; 

Registers Unsafe Across Call: Rl,R2,R4,R5,F0,Fl. 

Algorithm: Uses loop to count down 'n*, each pass performing load, 

negate, store sequence on current vector element. 
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W7S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 


W7S3 


Size of Code Area: 


Stack Requirement: 


B Intrinsic 


0 H w Data CSECT Size: 

r~| ^-focedure 


Other Library Modules Referenced: None. 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name: W7S3 

Function: 

Vector negate, single precision for vectors of length 3, 
Invoked by: 

Q Compiler emitted code for HAL/S construct of the form; 
-V, where V is a single precision 3-vector. 

I I Other Library Modules : 


Execution Time (microseconds): 23.4 


Input Arguments; 
Type 

Vector (3) 


Precision 


How Passed 
R2 ->■ 0^^ element 


Units 


Output Results: 
Type 

Vector (3) 


Precision 


How Passed 
R1 0^^ element 


Units 


Errors Detected; 
Error # 


Cause 


Comments; 

Registers Unsafe Across Call; Rl,R2,R4,F0,Fl,F2,F3,F4,F5. 

Algorithm; Direct, inline code, no loops. 

Does 3 loads, 3 negates 3 Stores. 


'.ITY O' 




OEIGINAL 
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W8D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 



PurKJtion: Compares two double precision 3— vectors 

Invoked by; - 

Compiler emitted code for HAL/S construct of the foinn; 

IF X = Y^.'. . , where X and Y are double precision 3-vectors. 

I I Other Library Modules : 


Execution Time (microseconds); 59,0 if X=Y; 16. 2n + 24.6 if where n = 

3 -(index of last non-matching pair of elements). 


Input Arguments; 


Type 

Precision 


How Passed 

Units 

Vector (3) 

DP 


R2 0^^ element 


Vector (3) 

DP 


R3 0^1^ element 


Output Results : 

Type 

Precision 


How Passed 

Units 

equal/not equal 

Errors Detected; 
Error # 


Cause 

condition code 

Fixup 



Comments ; 

Registers Unsafe Across Call; R1,R2,R3,R4,R5,F0,F1. 

Algorithm; Loads a literal 3 into R5, then drops into W8DN code. 
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W8D3 


Secondary Entry Name; 


Function; 


Compares two double precision vectors of length n. 
(Also used to compare matrices) . 


Invoked by: 

m Compiler emitted code for HAL/S construct of the form; 

IF )T = T, where X and Y are double precision vectors of length n, n?^3. 


□ Other library modules; 

Execution Time (microseconds): 16. 2n + 18.0 if X=Y; 16.2m + 22.2 if , where 

m = n- (index of last non-matching pair of elements) 


Input Arguments: 
Type 

Vector (n) 
Vector (n) 
Integer (n) 

Output Results; 

equal/unegual 

Errors Detected; 
Error # 


Precision 

DP 

DP 

SP 


Precision 


Cause 


How Passed Units 

'rS Oth element 

R3 Otxi element - 

R5 


How Passed Units 

Condition code. - 


Fixup 


Cominents: 

Registers Unsafe Across Call; r1,r2,R3,R4,R5,F0,F1. 


Algorithm; 


Loads R3 into R1 for better addressability. Loops, counting 
down 'size', each pass compares values of one element of each 
vector. When first non-compare occurs , branch to return point 
is taken, exiting loop. 

Condition code is set based upon whether count down loop 
reaches 0. Condition code of 00 indicates equality, 01 
indicates unequality. 
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W8S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: W8S3 

size of Code Area; 

12 

Hw 

Stack Requirement; 0 Hw 

Data CSECT Size; 

0 

Hw 

nj Intrinsic 

O Procedure 



Other Library Modules Referenced ; 

None. 




ENTRY POINT DESCRIPTIONS 
Primary Entry Name: VV8S3 


Function: Compares two single precision vectors of length 3. 


Invoked by: 

Q Comp^er_emitted code for HAL/S construct of the form: 

IF 5T= Y. where X and Y are single precision 3-vectors. 

n other Library Modules: 


Execution Time (microseconds): 42.8 if X=Y; 10. 8n + 8.4 if Xt^Y, where n 

4 -(index of last non-matching pair of elements). 


Input Arguments: 
Type 

Vector (3) 
Vector (3) 

Precision 

SP 

SP 


How Passed 
R2 element 

R3 element 

Units 

Output Results; 
equal/not equal 

Precision 


How Passed 
Condition Code, 

Units 

Errors Detected; 
Error # 


Cause 

Fixup 



Comments : 

Registers Unsafe Across Call; r1,r2,r3,r4,R5,F0,F1. 

Algorithm: Loads a literal 3 into R5. Than falls into W8SN routine. 
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W8S3 


Secondary Entry Name; W8SN 

Function: Compares two single precision vectors of length n. 

(Also used to compare matrices) . 

Invoked by: 

ty t Compiler emitted code for HAL/S construct of form: 

IF X = Y... , where X and Y are single precision vectors of 

length n, nj^3. 

ri other library modules; 


Execution Time (microseconds) ; 10.8n + 8.0 if X-Y; 10.8m + 6.0 if X?^Y, where 

m = n -{index of last non-matching pair of elements) +1. 


Input Arguments; 


Type 

Vector (n) 
Vector (n) 

Precision 

SP 

SP 

Integer (n) 

SP 

Output Results; 

Type. 

Precision 

equal/not equal 

- 

Errors Detected; 


Error # 



How Passed Units 

R2 O^h element "■ 

R3 ->■ 0 th element ~ 

R5 


How Passed Units 

Condition Code, - 


Fixup 




Comments : . 

Registers Unsafe Across Call: r1,R2,R3,R4,R5,fO,F1. 

Algorithm; Loads R3 into Rl for better addressability. Loops counting 

down 'size', each pass compares values of one element of each 
vector. When first non-compare occurs, branch to return 
point is taken, exiting loop. Condition code is set based 
upon whether count down loop reaches 0* Condxtion code of 00 
indicates equality, 01 indicates inequality. 
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VV10D3 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name; W10D3 

Size of Code Area: 56 

Hw 

Stack Requirement; 20 Hw 

Data CSECT Size: 2 

Hw 

Q Intrinsic 

Procedure 


Other Library Modules Referenced: 

DSQRT , WODN 


J ! 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function: Creates unit vector of length 3 for input B-vector in 

double precision. 

Invoked by : - 

Compiler emitted code for HAL/S construct of the form; 

UNITW, where V is a doiable precision 3-r.vector. 
r~| other Library Modules ; 


Execution Time (microseconds): 402.7 

Precision How Passed Units 

DP R4 0'*^^ element — 

How Passed Units 

R2 0'*'^ element - 

Errors Detected: , 

Error # Cause 

28 Input vector has all elements=0. 

Comments : 

Registers Unsafe Across Call: F0,F1,F2,F3,F4,F5. 

Algorithm: Loads R5 with literal 3, then drops into WlODN code. 


Fixup 

Return input vector. 


Output Results: 
Type 

Vector(3) 


Precision 

DP 


Input Arguments; 
Type 

Vector (3) 
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W10D3 


Secondary Entry Name; WIODN 

F""°‘i‘’"aeates unit vuctur of length n for input vector of length n 
in double precision* 

Invoked by: 

0 Compiler emitted code for HAL/S construct of the form: 

UNIT(V), where V is a double precision vector of length n, nj^S, 

other library modules: 




Execution Time (microseconds) : 


259*7 + 47, 8n 


Input Arguments; 
Type 

Vector (n) 
Integer (n) 


Precision 

DP 

SP 


How Passed 
0''-^ element 
R5 


Units 


output Results: 

Type 

Vector (n) 

Errors Detected: 
Error # 

28 


Precision 

DP 


How Passed 
R2 O^h element 


Units 


Cause 

every element of input vector xs 0. 


Fixup 

Return input Vector 


Comments ; 
Registers 

Algorithm: 


Unsafe Across Call; F0,Fl,F2,P3,F4,F5. 

Uses loop to sum squares of elements of input vector. Calls 
DSQRT to get square root of sum*. Uses loop to dxvxde eaci 
element of input vector by square root value and store xn o 
result vector. 
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W10D3 


t I 

Secondary Entry Name; W9D3 

Function; Calculates magnitude of length 3 double precision vector. 

Invoked by: 

0 Compiler emitted code for HAL/S construct of the form: 

ABVAL(V), where V is a double precision 3-vector. 

n other library modules; 

Execution Time (microseconds): 3Q0.2 

Input Arguments : 

Type Precision How Passed Units 

Vector (3) DP R2 -»• 0^^ element 

Output Results: 

Type 

. scalar 

- Errors Detected; 

Error # 


Comments : 

Registers Unsafe Across Call; F0,F1,F2,F3,F4,F5. 

Algorithm: Loads R5 with literal 3, then drops into W9DN code. 


Precision 


How Passed 


Units 


DP 


FO 


Cause 


Fixup 
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W1QD3 

Secondary Entry Name: W9DN 

Function: . . 

Calculates magnitude of length n double precision vector. 

Invoked by: 

Q Compiler emitted code for HAL/S construct of the form: 

ABVAL (V) , where V is a double precision vector of length n. 

n other library modules: 

Execution Time (microseconds): 226.6 + 24. 4n 


Input Arguments: 
Type 

Precision 


How Passed 

Units 

Vector (n) 

DP 


R2 element'. 


Integer (n) 

SP 


R5 


Output Results: 
Type 

Precision 


How Passed 

Units 

Scalar 

DP 


FO 


Errors Detected: 
‘ Error # 


Cause 

Fixup 



Comments : 

ilegisters Unsafe Across Call: F0,F1,F2,P3,F4,F5. 

Algorithm: Uses loo'p counting down size (n) , each pass squaring an 

element of input vector and adding to accumulated value in 
FO; after loop, calls DSQRT to obtain final result in PO. 
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HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: W10S3 


Size of Code Area: 


Stack Requirement; 


Q Intrinsic 


24 H w Data CSECT Size: 
171 Procedure 


Other Library Modules Referenced: SQRT f WOSN — _ 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function; creates unit vector of length 3 for input 3-vector in single 
precision. 

Invoked by; 

[2 Compiler emitted code for HAL/S construct of the form; 

UNITW, where V is a single precision 3-vector. 

□ Other Library Modules; 


Execution Time (microseconds); 236.4 


Input Arguments: 
Vector (3) 


Precision 


How Passed 
R 4 0 ^^ element 


Units 


Output Results; 
Type 

Vector (3) 


Precision 

SP 


How Passed 
R2 otli element 


Units 


Errors Detected; 
Error # 

28 


Cause Fixup 

Input vector has all elements = 0. Return input vector. 


Comments; . r- 

Registers Unsafe Across Call: F0,F1,F2,F3,P4,F5. 

Algorithm: Loads R5 with literal 3, then drops into WIOSN code. 
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W10S3 


Secondary Entry Ncutie; WIOSN 

Function: Creates unit vector of length n for input vector of 

length n in single precision. 

Invoked by: 

Compiler emitted code for HAL/S construct of the form: 

UNIT(V), where V is a single precision vector of length n, nj^3. 

n other library modules: 


Execution Time (microseconds): 130.6 + 32. 8n 


Input Arguments; 

gygg- 

Vector (n) 
Integer (n) 


Precision 
SP 
■ SP 


Output Results; 
Type 

Vector (n) 


Precision 

SP 


How Passed Units 

R4 ^ element 

R5 


How Passed Units 

R2 0^^ element - 


Errors Detected; 

Error # Cause Fixup 

28 Sum of squares of all elements 0. Return zero vector. 


'CJr 


Comments; 

Registers Unsafe Across Call; F0,F1,F2,F3,F4,F5. 

Algorithm: uses loop to sume squares of elements of input vector. 

Calls SQRT to get square root of sum. 

Uses loop to divide each element of input vector by square 
root return value and store into result vector. 


botoducibe 

l?Ai 



IT 

i 


OF THE 
POOR 
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W10S3 


Secondary Entry Neune; W9SN 


Function: Calculates magnitude of single precision vector’ of length n. 


Invoked by: 

Q Compilejc emitted code for HAL/S construct of the form: 

ABVAL(V), where V is a single precision vector of length n, n^^S. 

□ Other library modules: 

Execution Time (microseconds) : ii8.9 + 14. On 


Input Arguments: 
Type 

Vector (n) 
Integer (n) 

Output Results: 

-Type 

Scalar 

Errors Detected: 
Error # 


Precision 

SP 

SP 


How Passed Units 

R2 element - 

R5 


Precision 
SP ■ 


How Passed 
FO 


Units 


Cause 


Fixup 


Comments; 

Registers Unsafe Across Call: F0,F1,F2,P3,F4,F5. 


Algorithm: Uses loop counting down size (n) , each pass squaring an 

element of input vector and adding to accumulated value in FO; 
After loop, calls SQRT to obtain final result in FO. 
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W10S3 


Secondary Entry Name: 

‘calculates magnituae of length 3 single precision vector 
Invoked by; 

□ Compiler emitted code for HAL/S construct of the form; 
ABVAL(V), where V is a single precision 3-vector. 

Q other library modules; 

Execution Time (microseconds); 168.3 


Input Arguments ; 
Type 

Vector (3) 

Precision 

SP 

How Passed 
R2 -> element 

Units 

Output Results: 
Type 

Scal.ar 

Precision 

SP 

How Passed 

FO 

Units 

Errors Detected: 
Error # 

Cause 

Fixup 


Comments; -n-n 

Registers Unsafe Across Call: F0,Fi/Fii 

,F3,F4,F5. 


Algorithm: Loads 

R5 with literal 3; 

falls into W9SN code. 



intermetrics incorporated ■ 701 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Neime; VX6D3 


Size of Code Area: 


Stack Requirement: 0_ 

(3 Intrinsic 


Hw Data CSECT Size; 


Procedure 


Other Library Modules Referenced: None 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: VX6D3 

Function. Fo 3 rms cross product of 2 double precision d—vectors. 
Invoked by: 

Qj Compiler emitted code for HAL/S construct of the form; 

X * 7, where X and Y are double precision vectors of length 3. 

I I Other Library Modules: 


Execution Time (microseconds): 137.6 


Input Arguments: 
Type 

Vector (3) 
Vector(3) 


Precision 


How Passed 
R2 Oth element 
R3 element 


Units 


Output Results : 


Vector(3) 


Precision 

DP 


How Passed 
Rl 0^^ element 


Units 


Errors Detected; 
Error # 


Cause 


Comments; 

Registers Unsafe Across Call: R1,R2,R3,R4,P0,P1,F2,F3,F4,F5. 

Algorithm; Direct code, no loops, to calculate cross product. 
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VX6S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

VX6S3 

Size of Code Area: _ 

22 

Hw 

Stack Requirement: 

0 Hw 

Data CSECT Size: 


0 Hw 

joi Intrinsic 


0 Procedure 



Other Library Modules : 

Referenced : 

NONE 




ENTRY POINT DESCRIPTIONS 


Primary Entry Name: VX6S3 

Function; 


Performs vector cross product of two single precision length 3 vectors. 


Invoked by; 

Compiler emitted code for HAL/S construct of the form; 
X * Y where X and Y are single precision 3-vectors. 

) I Other Library Modules; 

Execution Time (microseconds); 78.0 


Input Arguments: 

.yypQ 

Vector (3) 
Vector (3) 

Output Results; 

Vector (3) 

Errors Detected: 
Error # 


Precision 

SP 

SP 


Precision 

SP 


How Passed 
R2 0^^ element 
R3 0*^^ element 


How Passed 
Rl -^Oth element 


Units 


Units 


Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call: R1,R2,R3,R4,F0,F1,F2,F3. 

Algorithm: uses direct code, no loops, to calculate. 

^"^2 ^3 ■ ^3 "" 2 ' "^3 \ “ "^1 ""3 ' ^2 " ""2 ^^ 1 ^ 




" .OF Tifi^ 
.^'.3 I'OOii 
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r 



5,3.4 Character Routine Descriptions 


This subsection presents those routines which 
manipulate character data. Routines which convert to 
and from character data are not included here. Such 
routines are found under Section 5.3,6, 
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CASPV 


HAL/S-FC library ROUTINE DESCRIPTION 


Hw Data CSECT Size; 


□ Procedure 


Source Mernbsr Name; CASPV Size of Code Area; — 

Stack Requirement; Q H w Data CSECT Size; - j 

Q Intrinsic Q ^^^ocedure 

Other Library Modules Referenced; : 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name; CASPV 

Function; Assigns a partition of a character string to a temporary. 
Invoked by; 

[}p} Compiler emitted code for HAL/S construct of the form; 

. . . C$ (I TO J) ... where C is a character string. 

pn other Library Modules: CPASP 


Execution Time (microseconds): (See next page) 


Input ZUrguments; 

Character 
Integer (I) 

Integer (J) 

Output Results; 

Type 

Character (temporary) 


Precision 


Precision 


How Passed 
R2 ->■ de scrip tor 
r5 
R6 


How Passed 
R1 ->■ descriptor 


Units 


Units 


Errors Detected; 

Error # Cause 

17 Indices out-of-bounds for input string . 


Fixup 

Set out-of-bounds 
index to first or 
last character of 
string. 


Comments ; 

Registers Unsafe Across Call; R1,R2 ,R3 ,R4 ,R5,R6 . 

Algorithm: Several checks for possible errors are made before the transfer 

of characters is actually done. The index to the first character (I) is checked 
to be not less than 1. If it is, then set to 1. The index to the last 
character (J) is checked to be less than the length of the source string, 
if it is greater, then the index is set equal to the c\irrent length. Third, 
if J < I, the fixup is the NULL string. If the input actually is the NULL 
string, then no error is signalled. Finally, if the partition lengthy 
exceeds the max length of the destination string, then the partition is 
truncated. 

(Continued on next page). 
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CASPV 



CASPV 

Execution Time: 

if p = 0 43,8 
if P > 0; 

52,0 + 3,8 (if I is even) 

+ 9.4k (if k is odd) 

+ 13,1k (if I is even) 
where p = minimum (J-I+1, 255) 
k = ceiling (P/2) 


Algorithm (Con’t) 


All that remains to be done is the halfword-by-halfword ^ 
transfer. The character count is incremented by one before dividing 
by two so that the halfword count is rounded to the next highest 
halfword if the character count was odd. 

If I (the first character index) is odd then the transfer is 
straightforward. If even, then there are alignment problems to 
work around. The odd byte of the first halfword to move must not 
be moved, so halfwords crossing the "natural" halfword boundary 
are moved instead. 
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CASPV 


Secondary Entry Name: CASP 

Function: Assigns a partition of a character string to a receiver stri; 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 

, where Cl and C2 are character variables, and 


Cl = C2 


'I TO J 


Q other library modules; 


1 and J are integers. 




Execution Time (microseconds) ; (See belov?) 


Input Arguments: 
Type 

character (C2) 
Integer (l) 
integer (J) 

Output Results: 
Type 

character (Cl) 


Precision 


How Passed 


Units 


SP 

SP 


R2 ->■ descriptor 
r5 
R6 


Precision 


How Passed 


Units 


R1 descriptor 


Errors Detected: 
Error # 

17 


Cause 


Index out— of —bounds for input string . 


Fixup 

Set out-Of -^bounds index 
to first or last 
character of string. 


Comments : 

Registers Unsafe Across Call; R1,R2,R3^R4,R5,R6, 
Algorithm; 


Scime as CASPV, except destination is a variable instead of 
a temporary. 


Execution Time ; 


if p = 0: 41.0 
if p > 0; 


49.2 + .8 (if p = raaxlength (Cl) } 
+ 3.8 (if I is even) 

+ 9.4k (if I is odd) 

+ 13.1k (if I is even) 


where p = minimum (J— 1+1, maxlength(Cl)) 
k = ceiling (P/2). 
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CASV 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name: 

CASV 

Size of Code Area: 

28 

Hw 

Stack Requirement; 

0 Hw 

Data CSECT Size: 

0 . 

Hw 

nn Intrinsic 


Q Procedure 



Other Library Modules 

Referenced: 

None. 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name: CASV 

Function; Character assign for output; assigns string from data to 
I/O buffer area. 

Invoked by: 

I I Compiler emitted code for HAL/S construct of the form; 


Pn Other Library Modules: 


COUTP, CINP 


REPRODUaBIUTY OF THE 
ORIGINAL PAGE IS Pi;OR 


Execution Time (microseconds): if C2 is null_string: 29.2 

if C2 / null string: 40.2 + 9.4 (ceilincr (P/2— 1) ) + 8 (if > 

maxlength(ClT) , where p = minimum (length(C2) , maxlength(Cl) ) ^ 

Input Arguments: 

Precision How Passed Units 


character 


R2 descriptor 


Output Results: 
Tyge 

character 

Errors Detected; 
Error # 


Precision 


How Passed 
R1 descriptor 


Units 


Cause 


Fixup 


Comments; 

Registers Unsafe Across Call; Rl,R2,R3,R4,R5. 

Algorithm; First, the max length of the destination string is set to 255. 

Then, the length descriptor halfword of both the source string and the 
destination string are examined. The min of the max length of the 
destination and the current length of the source is taken as the new currlength 
of the destination. Next, the number of halfwords to move is found by incrementing 
the character count by one (in case the character couhd is odd) and dividing 
by two. If the source is a null string, the routine exits. If the character 
count is odd, the last byte in the string is moved anyway since it is always 
ignored. The assignment is made by moving the string half word-by-half word to 
the location specified by the destination pointer. 
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CASV 


Secondary Entry Name: CAS 

Function: Character assignment, non -partitioned. 

Invoked by: 

□ Compiler emitted code for HAL/S construct of the form; 
_ C2 , where Cl and C2 are character strings. 


pSl other library modules; CIN 


Execution Time (microseconds) s if input is null string; 32.0 

if input ^ null string; 43 + 9.4 • (ceiling (P/2-1) ) , vmere p 
of input character string. 


length 


Input Arguments: 
Type 

character (C2) 


Precision 


How Passed 
R2 ->■ descriptor 


Units 


Output Results: 

character (C2) 


Precision 


How Passed 

Rl ->■ descriptor 


Errors Detected; 
Error # 


Cause 


Fixup 


Units 


Comments ; 

Registers Unsafe Across Call; Rl,R2,R3,R4,R5. 

Algorithm: Same as CASV, except MAXLEN of destination is not set to 255 

but left with original MAXLEN value. 
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CATV 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 




Size of Code Area: _ 

76 

Hw 

Requirement: P, _ Uw 

Data CSECT Size: 

0 

Hw 


□ Procedure 


Primary Entry Name: 



Function: Catenates two character strings and stores into a temporary. 


ivoked by: . - .p 

Compiler emitted code for HAL/S construct of the form 

x|1y 

n other Library Modules: 


Execution Time (microseconds) : Times depend on whether first source 

string = destination string and whether the first source string has an 
odd character count creating an alignment problem. (Continued on next page) . 

input Arguments: ^ Passed Units 

Precision now ir-asseu ^ 


Character (X) 
Character (Y) 


R2 descriptor 
R3 descriptor 


output Results: 


Precision 


Character(temporary) 


How Passed 
Rl descriptor 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


none 


Comments: Registers Unsafe Across Call: Rl,R2 ,R3/R4,R5 ,R6 ,R7 ,F0 ,F1. 

Algorithm: The lengths of the source strings are checked against the 

destination string for legal values. The second source string may be 
truncated if its length + that of the first source string exceed the length 
of the destination. If the first source string and the destination string 
are the same string (found by comparing addresses)/ then only the second 
source string is moved. After checking these things, the routine needs 
only to actually move the strings. The first is a straight halfword-by- 
halfword move. If its length is odd, then there is the alignment problem to 
contend with. The second string is moved starting where the first one left 
off. See description of CASPV for what is done when the first source string 
has an odd character count . 
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CATV 


Execution Time (microseconds); (Cont'd.) 
if X is null string and Y is null: 52.2 ysec. 
if X and Y are not both null: XTIME + YTIME. 

XTIME; if X is null string: 24.0 

if X null string; 29,8 + 9,4 (ceiling (P/2)) 
where p = length (X), 

YTIME: if Y is null string: 27,8 


if Y is / null string; 

52.1+14.1 . (ceiling (Q/2-1) ) 
+ 6.0 (if P+Q is odd) 


if P is odd 


32.3 + 9.4 • (ceiling (Q/2) ) if P is even 

where Q = minimum ( length (Y) , 255-P) . 
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CATV 



Secondary Entry Name: CAT 

Function: Catenates two character strings and stores into a third string. 

Invoked by: 

nn Compiler emitted code for HAL/S construct of the form: 

Not used yet. j 

□ Other library modules: 

Execution Time (microseconds): same as CATV - 2.5 



Input Arguments: 
Type 

Character 

Character 


Precision 


How Passed Units 

r 2 descriptor 
R3 ->■ descriptor 


Output Results: 
Type 

Character 

Errors Detected: 
Error # 


Precision 


How Passed 
R1 -*■ descriptor 


Units 


Cause 



Comments : . 

Registers Unsafe Across Call: Rl ,R2 ,R3 ,R4,R5 ,R6/R7 ,P0,F1 . 

Algorithm; same as CATV, except string is moved to real data area, h.^c 
to a temporary. 
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1 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 



Function: Performs HAL/S INDEX function: finds occurrance of one character 

string within another. 


Invoked by : 

I x| Compiler emitted code for HAL/S construct of the foinn; 

INDEX {A, B) , where A and B are character strings; B is searched for 

within A. 

□ Other Library Modules : 



Execution Time (microseconds) : (see next page) , 


Input Argviments: 

ch.a:cacter CA) 
character (B) 

Precision 


How Passed 

Units 


- 


R2 descriptor 

r 4 -> descriptor 

- 


Output Results : 
Integer 

Precision 


How Passed 

Units 


SP 


R5 

- 


Errors Detected: 
Error If 


Cause 

Fixup 




Comments : 

Registers Unsafe Across Call: R5/F0,F1,F2,F3,F4,F5. 

Algorithm: D If either string is null, return zero, 

2) Set pointer to first character of A, 

3) If size of B exceeds size of A, beyond A pointer, return zero. 

4) Loop on size of B, comparing elements of A and B beginning 
at current A pointer ; on non-equality go to step 6 . 

5) Comparison loop in 4 succeeded, return current A pointer. 

6} Increment A pointer by one byte, go to step 3. 


BEPRODUCIBIUTY 

(}BIGINAL page 13 
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CINDEX 


CINDEX 

Execution Time (microseconds) : 
if A is null; 32.8 
if B is null: 38.0 

if length (B) > length (A) ; 44.8 

if result =0; 

JA KAj 

tine = 38.0 * E ( Z (15.4 + KE^ + + 16.4 + KBj) 

1=1 J=1 


Where JA = 2 (length (Cl) - length (C2) )+l 


KA = # of compares 
^ n = C2. 


required to determine that Cl$ (length (C2) at I) 


KBx = 


( 14.4 i 
I 15.6 i 


if X is even 
if X is odd. 


if result =0; 

result KAi A VT, \ 

time - 29.6 + S ( E (15.4 + KB^ + + I®-'* 

1=1 J=1 


^result 

where KA = ( # of comparisons required to determine that Cl$ (length (C2) at I) 

i 1 C2 if I “1 = result. 

length (C2) if I - result . 

KB is as above. 

X 
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CLJSTV 


hal/s-fc library routine description 


Source Member Name; CLJSTV 


Size of- Code Area; 


Stack Requirement: 


□ Intrinsic 


18 H w Data CSECT Size: 
□ Procedure 


Other Library Modules r.eferenced; GTBYTE, STBYTE_ 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name: CLJSTV 

Function; Left justifies a character string to a specified length by 

1) padding on the right with blanks if too short; 

2) truncating on the right if too long. 

Invoked by; 

(3 Compiler emitted code for HAL/S construct of the form; 

LJUST(A,B), where A is a character string, and 
B is an 'integer. 

[~1 other Library Modules: 


Execution Time (microseconds) : (See next page) . 


Input Arguments: 
Type 

character 
integer (B) 


Precision 


How Passed 
R4 descriptor 
R5 


Units 


Output Results:’ 

Type Precision 

character(temporary) - 


How Passed 
R2 descriptor 


Units 


Errors Detected: 

Error # Cause 

18 Input string length greater than Truncate input string 

requested size. to specified size, 

or B < 0. 

Comments : 

Registers Unsafe Across Call; F0,F1. 

Algorithm; Compares requested length to 255 and retains smaller as L; 
Compares L with input string length; 

if greater, truncates on right to length L and moves to output; 
if same, moves input s-tring unchanged to output; 
if less, pads on right with blanks and moves to output. 
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r 



CLJSTV 


CLJSTV 

Execution Time : 

34.0 + 2.8 (if B < 255) 

+ 2.0 (if n > 0) 

+ 40.8n 

+1.6 (if n is odd) 

+ 0.4 (if m £ 0) 

+ 1.0 (if m is odd and n is even) 
- 1.0 (if m is odd and n is odd) 

+ 23.8 m 

where n = length (A) 

m = maximum (B-n,0) 
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CPAS 


Source Member Names 
Stack Requirement: 


HAIi/S-FC LIBRARY ROUTINE DESCRIPTION 

3. CPAS Size of Code Area: 

• .20 Hw Data CSECT Size; _ 


□ Intrinsic 

Other Library Modules Referenced; 
ENTRY POINT DESCRIPTIONS 


nn Procedure 


GTBYTE, STBYTE 


Primary Entry Name; CPAS 

Function; Assigns a character string to a partition of another string. 
Invoked by; 

Q Compiler emitted code for HAL/S construct of the form; 

C2 = Cl: Cl and C2 are character strings, 

I TO J 

nn other Library Modules: cPASP, CINP 

Execution Time (microseconds) : (See next page) . 


Input Arguments; 

Type Precision 

character string (source) (cl) ^ 
integer (i) 
integer (j) 

output Results: 

Type Precision 

character (destination) TC7) 


How Passed 
R4' descriptor 
R5 
R6 

How Passed 
R2 -V descriptor 


Units 


Units 


Errors Detected; 
Error # 

17 


Cause Fixup 

Index out— of —bounds for destination Set out-of-bounds index 

string. to first or last character 

or J < 1-1 of destination. 


Comments ; 


Registers Unsafe Across Call; F0,F1. 


Algorithm; First, the length of the partition is compared to the length of 
the source. If the source is longer, truncate it. If the destination 
partition is longer, then pad with blanks. The character count is 
determ.ined and the string is moved byte-by-byte with the GTbYTE and STBYTE 
routines . 
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CPAS 


CPAS 


Execution Time (microseconds) : 

LHP 

34.2 + KA + £ (5.6 + KC^q^^k^ + KD 

k=l 

NCHAR 

+ I (7.6 + KC^+k-1 ^ 

k=l 


RHP 
+ 2 
k=l 


(5.6 + KC 


I+LIN+K-1 


) + KG 


where 


LOUT = length (C2) before assignment 


LIN = length (Cl) 

KA = / 25.4 if J <= LOUT 
I 34.0 if J > LOUT 


LPART = J-I+1 (length of partition) 

KB =)9.2 if LPART > 0 and LPART <= LIN 
)13.8 if LPART > 0 and LPART > LIN 
( 0 otherwise 

LHP = I-LOUT-1 


KC =(19.2 if X is odd 
^ \l7.2 if X is even 

KD = / 4 . 0 if LHP <= 0 
I 0 otherwise 

NCHAR = MINIMUM (LPART, LIN) 

KE = (.8 if NCHAR = 0 
\o otherwise 

KF =(l5.6 if X is odd 
^ \l4.4 if X is even 


Note that in summations, 
if startjLndex > end_index 
then summation goes to 0 . 


RHP = LPART-LIN 

KG = .4 if RHP <= 0 

0 otherwise 
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CPASP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: CPASP 


Size of Code Area: 


Stack Requirement: _ 

□ Intrinjsic 


146 H w Data CSECT Size: 
rri Procedure 


Other Library Modules Referenced: CASPV, CP^ ^ 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: CPASP 

Function: Assigns a partition of a character string into a partition 

of another character string. 

Invoked by: 

[■X. I Compiler emitted code for HAL/S construct of the form; 

pi = C2 ; Cl and C2 are character strings, and 

I TO J K TO L I,j,K,L are integers. 

□ Other Library Modules: 


Execution Time (microseconds); 42.8 + time for CASPV and CPAS, 


Input Arguments: 
Type 

character (source) C2 

integer ( K) 
integer (L), , 
integer (I I j j) 

Output Results ; 

Type 


Precision 


(SP| |SP) 
Precision 


How Passed 
r 4 descriptor 


How Passed 


character (destination) Cl 


Units 


Units 


Errors Detected; 
Error # 


Comments; 


Cause 

Subscript of character string out of 

bounds . 


Fixup 

Set out-of-bounds value 
to first or last 
character of associated 
string. 


Registers Unsafe Across Call: FO, FI. 

Algorithm: The input partition is put into a VAC by the CASPV routine. 

The index arguments of the destination string and pointers are set up 
for the CPAS routine, that then moves the contents of the VAC into the 
destination string . 


keproducieility of the 
onmmh PiUtE is pooh 
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CPR 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 


Size of Code Area: 


Stack Requirement; 

□ Intrinsic 


Hw Data CSECT Size: 


□ Procedure 


Other Library Modules Referenced ;N one . 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name: CPR 

Function: Compares two character strings for '=' or '-i=' and sets 

condition code. 

Invoked by; 

nn Compiler emitted code for H2VL/S construct of the form; 

IF Cl = 0 . 2 ..., where Cl and C2 are character strings. 

0 Other Library Modules: CPRA 


Execution Time (microseconds) : (see next page) 


Input Argviments; 
Type 

Character (Cl) 
Character (C2) 


Precision 


How Passed 
R2 descriptor 
R3 ■+ descriptor 


Units 


Output Results : 


equal /not equal 


Precision 


How Passed 
condition code 


Units 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments: In order to not change the condition code after the comparisons 

and before exiting, instructions that change the c.c. are replaced by those 
that do not change it. For example, LH replaced by IHL and SLL. (Cont'd. below) 
Algorithm: See CPRC entry. 


Comments : (COnt ' d . ) 


Registers Unsafe Across Call : R2 , R3 ,R4 ,R5 ,R6 . 
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CPR 


CPR 

Execution Time (microseconds) ; 

If Cl and C2 do not halfword compare and K ^ 2: 
setup + 11. 6J +12.9 

If K is even or K = 0 and Cl and C2 halfword compare 1 up till the 
character; 

setup + 11.6n + 20.1 

If K is odd and Cl = C2 up till the K character: 
setup + 11. 6n + 29.9 

If K is odd and only the last characters compared differ 
setup + 11.6n + 20.3 
where : 

K = minimum (length (Cl) , length(C2)) 
setup = 23 + .4 (if length(C2) < length(Cl)) 

J = number of matching halfword compares 
n = floor (K/2) 
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CPRC 


Secondcury Entry Name: 

Function: compares two character strings for collating sequence and 

sets condition code. 

Invoked by: 

0 Compiler emitted code for HAL/S construct of the form: 

If C1<C2..., or any other relational operator, except ' = ' , or ' 1=' . 

n other library modules: 

Execution Time (microseconds): Same as CPR 


Input Arguments: 
Type 

Precision 


How Passed 

Units 

character (Cl) 



r 2 - descriptor 

- 

character (C2) 

- 


R3 - descriptor 

- 

Output Results: 
Type 

j 

Precision 


How Passed 

Units 

relation 

- 


condition code 

- 

Errors Detected: 
Error # 


Cause 

Fixup 



Comments ; See CPR , 

Registers Unsafe Across Call: r2,R3,r4,r5,R6. 

Algorithm: Find the smaller of the lengths of the two strings to be 

compared. Compare this many characters halfword -by-halfword , and 
compare the upper bytes of the last halfwords separately if the 
character count is odd. If any of these comparisons are unequal, 
then return the resultant condition code. If all are equal, then 
compare the lengths of the two strings, and return the resultant 
code. 
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CPRA 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

CPRA 

Size 

of Code Area; 

39 

Hw 

Stack Requirement: 

22 

_ Hw Data 

CSECT Size: 

0 

Hw 


r~l Intrinsic 0 Procedure 

Other Library Modules Referenced; CPR 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function: Compares arrays of character strings. 


Invoked by: ' 

Compiler emitted code for HAL/S construct of the form; 

IP SI = S2, where SI and S2 are structures, one of whose nodes 
is a length n array of character strings. 

f~~j Other Library Modules: 


Execution Time (microseconds) : 

(Cont'd. below). 

Input Arguments: 

Type Precision 

character array • ~ 

character array 

integer C#\Hw in each string) SP 
xntegerCn) oP 

Output Results : 

Type Precision 

equal/not equal ~ 

Errors Detected: 

Error # 


NCMP 

23.2 + Z 
k=l 


(18.2 + CPRTIME, ) - 14.2 (if arrays 


How Passed 
R2 0th element 
R3 element 

w 

How Passed 
condition code 


are not equal) 
Units 

Units 


Cause 


Fixuo 


Comments : 

Registers Unsafe Across Call: None. 

Algorithm: Pointers to character strings within the array are set, thqn 

CPR routine called. If all pairs of strings within the array are equal ^ 
result of CPRA is "equal", otherwise the result is "not equal". 

Execution Time (Cont'd.) 

where NCMP = number of elements in arrays if arrays are equal, 
index of first non-matching character strings in 
arrays if arrays not equal . 

CPRTIME = time in CPR for S1.C$(X:) and S2.C$(X:) where C is the 
^ node for the array of character strings. 
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CRJSTV 


hal/s-fc library routine description 

Source Member Name; CRJSTV Size of Code Area; 

Stack Requirement; 18 n H w Data CSECT Size; — 

□ intrinsic 0 Procedure 


46 


Hw 

Hw 


Other Library Modules Referenced; 


GTBYTE, STBYTE 


ENTRY POINT DESCRIPTIONS 


CRJSTV 


Primary Entry Name; 

Function: Right-adjusts a character string to a specified length by. 

1) padding on left with blanks if too short; 

2) truncating on left if too long. 

Invoked by; 

j xj Compiler emitted code for HAL/S construct of the form: 
RJUST{A,B), where A is a character string, and 
B is an integer. 

□ Other Library Modules; 


Execution Time (microseconds) ; (See next page) . 


Input Argumen-tS. 

character (A) 
integer (B) 


Precision 

SP 


How Passed Units 

R4 descriptor - 

R5 


Output Results: 
Type 


Precision 


Character (temporary) 


How Passed Units 

R2 descriptor 


Errors Detected: 

Error # Cause 

18 Input string length greater than input 

size or B < 0. 


Fixup 

Truncate input string 
on left to proper size. 


Comments ; 

Registers Unsafe Across Call: F0,Fl. 

Algorithm: Compares requested length to 255 and retain smaller as L; 

Compares current length with L: 

if greater, truncates on left and moves to input; 
if same, moves string to output; 

if less^ pads on left and moves input string to output. 
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GRJSTV 


CRJSTV 


Execution Time (microsecond^) : 

NBLANK 

34.8 + KA + I (6.8 + KB, ) + KC 
k=l 


NCHAR 
+ E 
k=l 


(5.6 + KD^ + KB^bLANkV ^ “ 


where : 


KA = 


0 if B >= 255 
2.8 if B < 255 


NBLANK = 


I B-length(A) 

* 0 otherwise 


if B > length (A) 


KBjj = ^ 19.2 if X is odd 
* 17.2 if X is even 

KC = i 1 . 2 if NBLANK > 0 
1 0 otherwise 


NCHAR = length (A) 


KD = j 15.6 if X is odd 
^ I 14. 4 if X is even 

KE = /.4 if NCHAR = 0 
I 0 otherwise 
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CTRIMV 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: CTRIMV 

Size of Code Area; 

94 

Hw 

Stack Requirement: 18 Hw 

Data CSECT Size: 

0 . 

Hw 

Q Intrinsic 

0 Procedure 



Other Library Modules Referenced: 

GTBYTE, STBYTE 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name: CTRIMV 

Function: Implements HAL/S TRIM function - strips leading and 

trailing blanks from a character string. 

Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 
TRIM(C), where C is a character string. 

□ Other Library Modules: 


Execution Time (microseconds) : (See next page) . 

Input Arguments: 

Type Precision 

character (c) — 

Output Results: 

Type Precision 

character (temporary) 

Errors Detected: 

^^tor # Cause Fixup 


Hoy; Passed 
R2 descriptor 


Units 


How Passed Units 

R4 descriptor ^ 


Conunents : 

Registers Unsafe Across Call: F0,F1. 

Algorithm: Because there are no character or byte compare instructions 

on the AP-101, the routine first tests length of string. If odd, it sets 
R7 to 1. "Length" is shifted right 1, resulting in length in # of halfwords 
("I if odd) , Compares first halfword with "feiD, continues comparing consecutive 
halfwords of string with "fe^, until a halfword that is not equal to bb is 
found. Then tests this halfword to see if first byte is "te. Adds length of 
string in halfwords to pointer to string, resulting in a pointer to end of string. 
Compares last halfword of string with i>D. If equal, then moves pointer back 
a halfword and again compares. When a halfword not equal to "E& is found, the 
halfword is tested to see if it is cfe or CC (where C stands for any character).'" 
Length of string is appropriately adjusted, and routine branches to a character 
move loop. 


INTERMETRICS INCOf^PORAFED 
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CTRIMV 


0? THHl 

: po(va 


CTRIMV 


BEPEODUC^m; 

OEIOEn’AI* ‘ ■■ 


Execution Time (microseconds) ; 

If length (C) = 0; 30.4 

If length (C) = 1 and C is a blank: 64.0 
If length (C) = 1 and C is not a blank: 102.8 
If length (C) > 1 and all blank 

44.6 + KA + 13.2KB 
where : 

KA = 0 if length (G) is even 

19.4 if length(C) is odd 

KB = floor ( length (C)/2) 

If length (C) > 1 and not all blank 

60.4 + KA + 13.2'KB + KC + KD(11.6*KE + 13,6 + KF) 


NCHAR 
+ Z 
k=l 


(39.2 + KG, 


KH+k-1 


+ KI, ) 
k 


where: 

KA = 0 if length (C) is even 

19.4 if length (C) is odd and C$(#) is blank 

18.4 if length (C) is odd and C$ (#)“>= blank 

and C$ (#)-n= null 

22.4 if length(C) is odd and C$(#)“i= blank 

and C$ (#) = null 

KB = # halfwords = blank [ | blank at the beginning of C 

KC = 0 if index of first non_blank character is odd 
and this character - null 
4.8 if index of first non blank character is odd 
and this character = null 
9.0 if index of first non blank character is even. 

KD = 0 if length (C) is odd and (C$(#)n= blank 
1 otherwise. 

KE = # halfwords = blank | ] blank at the end of C 

(Continued on next page) 
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CTRIMV 


CTRIMV 

Execution Time (Continued) : 

KF = 0 if index of last untrimmed character is even and 

this character “I = null 

3.6 if index of last untrimmed character is even and 
this character = null 

4.4 if index of last untrimmed character is odd. 

NCHAR = length of result. 

KG = 0 if X is even 
^ 2.0 if X is odd 

KH - index of first non blank character 

KI = 0 if X is odd 

2 if X is even 
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5.3,5 Array Function Routine Descriptions 

This subsection presents those routines which 
are classed as "ARRAY FUNCTIONS" by the HAL/S Language 
Specification, These are routines which operate upon 
arrayed arguments and produce a single element result. 
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DMAX 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name: DMAX 

size of -Code Area: 

10 

Hw 

Stack Requirement: Hw 

Data CSECT Size: 

0 

Hw 

Pn Intrinsic 

0 Procedure 



Other Library Modules Referenced: 

None 





ENTRY POINT DESCRIPTIONS 

Primary Entry Name; DMAX 

Function: Finds maximum value in a doiible precision scalar array. 


Invoked by ; 

□ Compiler emitted code for HAL/S construct of the form; 

MAX (< DP arr ay> ) 

□ Other Library Modules; 


Execution Time (microseconds): 17. 6L + 14.6m + 11.4, where L - # of times 
CURRMAX changes; M = # of times CURRMAX does not change, L+M = (# of elements 
in array) - 1 . 

Input Arguments: 

Type Precision How Passed Units 

Scalar array ~DP r 2 a- Qth element 

Integer (size) SP R5 - 


Output Results : 
Scalar 

Errors Detected: 
Error # 


Precision 


How Passed 


Cause 


Comments; Registers Unsafe Across Call; R2, R4, R5, FO, Fl. 

Algorithm: A loop is set up to compare each element of the array to the 

current max. Initially, the first element is CURRMAX ^ Each subsequent 
element of greater value replaces the former CURRMAX. The counter is 
decremented after each comparison. The value of CURRMAX when the counter 
is zero is the max of the array and is passed back to the calling program, 
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DMIN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

DMIN 

Size of Code Area; 

LQ 

Hw 

Stack Requirement: 

0 

Hw Data CSECT Size: 

0 

Hw 


0 Intrinsic □ Procedure 

Other Library Modules Referenced: None. 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function: Finds minimim value of a double precision scalar array. 


Invoked by: 

Compiler emitted code for HAL/S construct of the form; 
MIN{<DP scalar array>) 

n other Library Modules: 


Execution Time (microseconds); 17. 6L + 14.6m + 11.4, where L - # of times 
CURRMIN changes; M = # of times CUPOlt-lIN does not change; L+M = (# of elements 


in array)-!. 

Input Arguments ; 

Type 

Scalar array 
Integer (size) 

Precision 

DP 

SP 


How Passed 

R2 element 

R5 

Units 

Output Results: 
Type 

Precision 


How Passed 

Units 

Scalar 

DP 


FO 

— 

Errors Detected: 
Error # 


Cause 

Fixup 



Comments: Registers Unsafe Across Call: R2, R4 , R5, FO, FI. 

Algorithm: similar to MAX functions, except register contains the 

current minimum' and is changed when an element in the array has a 
smaller value than CURRMIN. 
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7 


DP ROD 

HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: DPROD _ Size of -Code Area; 1 ±_ 

Stack Requirement: ° 

0 Intrinsic □ Procedure 


Hw 

Hw 



Primary Entry Name: 
Function: 


DPROD 


Calculates the product of the elements of a double precision 
scalar array. 


^""y^Compiier emitted code for HAL/S construct of the form; 

PROD C<DP scalar array>) 

I I other Library Modules: 

Execution Time (microseconds): 20. 6n + 6.2 if product is not zero, where 

^ n = # of Plemen^^ in the array. 20.6m + 2.6 if produce xs zero, where m ■ 

index into the linear representation of the array of the first zero elemen . 

-jU . 


Input Arguments: 

Ty£6 

Scalar array 
Integer Csize) 

Output Results: 
Scalar 

Errors Detected; 
Error # 


Precision 

DP 

SP 

Precision 

DP 


How Passed 

R2 ^ 0^^ element 
R5 


How Passed 
FO 


Units 


Units 


Cause 


Fixup 


Comments: Registers Unsafe Across Call: R2, R4, R5, FO, Fl. 

Algorithm: Similar to the algorithm for the SUM factions. An^ ^ 

accumulator is initialized to one. The value in the accumulator ist ^ 
multiplied by each element of the array; the result of each multxplxcatxon 
is saved in the accumulator. After .each multiplication, the result xs 
checked for a zero product. If the product is ever zero, the routine 
exits and returns zero. 
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DpUM 



HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Member Name: DSUM 

Size of Code Area: 6 


Hw 

Stark Regni remen t: ® Hw 

Data CSECT Size: 

0 

Hw 

fH Intrinsic 

□ Procedure 



Other Library Modules Referenced; 

None . 




ENTRY POINT DESCRIPTIONS 

Primary Entry Name : 

Function: Calculates the sum of the elements of a double precision 


scalar array. 

Invoked by; 

Compiler emitted code for HAL/S construct of the form; 
SUM(<DP scalar array>) 

n other Library Modules; 


Execution Time (microseconds): 7.2 + 11, 6n, where n = # of elements in the 

array . 


Input Arguments: 
Type 

Scalar array 
Integer (size) 


Precis xon 
DP 
SP 


How Passed 
R2 0'*'^ element 
R5 


Units 


Output Results : 
Scalar 


Precision 

DP 


How Passed 
PO 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments; Registers Unsafe Across Call: R2, R4, R5, FO, FI. 


Algorithm: An accumulator (FO, FI) is initialized to zero. Each element 
of the array is added to the accximulauor in a loop based upon the array 
size. 
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ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

Function: Finds maximum value in a single precision scalar array. 


Invoked by : 

I Compiler emitted code for HAL/S construct of the form; 
MAX(<SP scalar array>) 


□ Other Library Modules: 


Execution Time (microseconds): 9.8 + 10.8m + 12. 2L, where m - # of 

times CURRMAX does not change; L = # of times CURRMAX changes; and 
M+L = (# of elements in array) -1. 

Input Arguments: 

Type Precision How Passed 

Scalar array SP R2 0'*-^^ element 

Integer (size) SP R5 


Output Results: 
Type 

Scalar 

Errors Detected; 
Error # 


Precision 


Cause 


How Passed 


Units 


Units 


Comments: Registers Unsafe Across Call; R2, R4, R5, FO, FI. 


Algorithm: Same as DMAX except that operations are all single precision. 


‘ ki s' V * , j . J 
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EMIN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 
Stack Requirement: 


EMIN 


Size of Code Area: 


o Intrinsic 
Other Library Modules Referenced: ' 


Hw Data CSECT Size: 
Q Procedure 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: EMIN 


Hw 

Hw 


Function: finds minimum value in an array of single precision scalar. 


Invoked by: - 

Q Compiler emitted code for HAL/S construct of the form; 

MIN(<SP scalar array>) 

I I Other Library Modules; 

Execution Time (microseconds): 9-8 + 10.8m + 12. 2L, where m = # of times 

CURRMIN does not change; L = # of times CURRMIN changes; and M+L = (# of 


elements in array) 

-1. 




Input Arguments ; 

Type 

Precision 


How Passed 

Units 

Scalar array 

SP 


R2 ->■ 0^^ element 

- 

Integer (size) 

SP 


R5 

- 

Output Results: 

Type 

Precision 


How Passed 

Units 

Scalar 

SP 


FO 

- 

Errors Detected: 
Error # 

• 

Cause 

Fixup 


Comments; Registers Unsafe Across Call: 

R2, R4, R5, FO, Fl. 


Algorithm: Same as 

DMIN, except 

operations 

are in single precision 


floating point. 
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EPROD 



Function, calculates product of elements of a single precision scalar array. 
Invoked by : 

□ Compiler emitted code for HAL/S construct of the form: 

PROD(<SP scalar array>) 

□ Other Library Modules: 


Execution Time (microseconds): 13. 2n + 4.6 if produce is not zero, where 

n = # of elements in the array. 13.2m +1.4 if product is zero, where m = 
index into the linear representation of the array of the first zero element. 
Input Arguments; 

Type Precision How Passed Units 

Scalar array SP R2 -+ O^h element - 

Integer (size) SP R5 - 


Output Results : 


Scalar 


Precision 


How Passed 


Errors Detected: 
Error # 


Cause 


Comments : Registers Unsafe Across Call; R2, R4, R5, FO, FI. 
Algorithm; same as DPROD. 
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ESUM 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: Size of -Code Area: ^ 

Stack Requirement: ^ H w Data CSECT Size: 

□ Intrinsic Q Procedure 

Other Library Modules Referenced: 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


ESUM 


Function: Calculates sum of elements in a single precision scalar array. 


Invoked by; 

ED Compiler emitted code for HAL/S construct of the form; 


SUMC<SP scalar array>) 

1 1 Other Library Modules; 

Execution Time (microseconds): 5.2 + 6.6n, 

where n = # of elements 

in the array 

Input Arguments : 
Type 

Precision 

How Passed 

Units 

Scalar array 

SP 

R2 OTh element 

- 

Integer (size) 

SP 

R5 

- 

Output Results : 


Precision 

How Passed 

Units 

Scalar 

SP 

FO 

- 

Errors Detected: 
Error # 

Cause 

Fixup 



Comments: Registers Unsafe Across Call; R2, R4, R5, PO, PI. 


Algorithm : 


Same as DSUM. 


la, 
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Function: Finds maximum value in a single precision integer array 


“□‘Sn.Sier .fitted code for HA^/S construct of tne for.. 
MAX(<SP integer array>) 


r~j other Library Modules: 


Execution Time (microseconds )j. 
CURRMAX does not change; k - » 


11.0 + 7 
of times 


elements in array) -1- 
Input Arguments: 

Type 


Precision 


Integer array 
Integer (size) 


SP 

SP 


.8m + 9.2k, where m = # of times 
CURRMAX changes; and m+k = (# of 


How Passed 
r 2 ">• 0"^^ element 
R5 


Units 

^ S 


output Results: 
Type 
Integer 


Precision 

SP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments: Registers Unsafe Across Call. R2, R4, R5, R6. 

Algorithm. Same us DMAX, except that all operations deal «ith 
halfword integers. 
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HMIN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

Stack Requirement; 

□ Intrinsic 


Size of Code Area; 


Hw Data CSECT Size; 


n Procedure 


Other Library Modules Referenced; — — ■ 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function; Finds minimum value in a single precision integer array. 

Invoked by ; 

I y| Compiler emitted code for HAL/S construct of the form; 

MIN(<SP integer array>) 

I I Other Library Modules; 

Execution Time (microseconds); 11.0 + 7.8m + 9.2k, where m = # of times 
CURRMIN does not change; k = # of times CURRMIN changes; and m+k - (# of 
elements in array) -1. 

Input Argiaments; 

Type Precision How Passed b^^^hs 

Integer array SP R2 O^h element 

Integer (size) SP R5 


Output Results; 
Type 
Integer 


Precision 


How Passed 


Errors Detected; 
Error # 


Cause 


Comments; Registers Unsafe Across call; R2, R4, R5, R6. 

Algorithm; Same as DMIN, except that operations are for halfword integers. 
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Primary Entry Name; 


HPROD 


Function; Calculates product of elements in a single precision integer array. 


Invoked by : 

El Compiler emitted code for HAL/S construct of the form; 
PROD(<SP integer array>) 

□ Other Library Modules; 


Execution Time (microseconds): 12.4n + 5.8 if product is not zero, where 

n = # of elements in array. 12.4m + 2.2 if product is zero, where m = index 
xnto the linear representation of the array of the first zero element. 

Input Arguments; 

Type Precision Hov? Passed Units 

Integer array SP r 2 element 

Integer (size) SP R5 .r. 

Output Results: 

Type Precision How Passed Units 

Integer SP R5 - 


Errors 'Detected: 
Error # 



Comments: Registers Unsafe Across Call; R2, R4, R5, R6. 

Algorithm: Same as DPROD, 
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Soiirce Member Name; 

Stack Requirement; 

Ei Intrinsic 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
HSUM gi 2 e of Code Area; 


_Hw Data CSECT Sizes 
□ Procedure 


Other Library Modules Referenced: None., — , — - | 

ENTRY POINT DESCRIPTIONS 
Primary Entry Name: HSUM 

Function: Calculates sum of elements in a single precision integer array. 

Invoked by ; ^ r- 

[J Compiler emitted code for HAL/S construct of the form; 

SUM(<SP integer array>) 

Other Library Modules; 

Execution Time (microseconds): 4.4 + 5,4n, where n = # of elements in the array. 


Input Arguments: 
Type 

Integer array 
Integer (size) 

output Results: 
Integer 

Errors Detected: 
Error # 


Precrsxon 


Precision 


How Passed 
R2 ->■ 0^^ element 
R5 

How Passed 


Units 


Units 


Cause 


Comments; Register Unsafe Across Call: R2, R4, R5, R6. 


Algorithm: Same as DSUM. 
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hal/s-fc library routine description 


, „ tmax Slzs of ■ CodG Axsa • ^ — 

Source Meinber Name: — 

. . 0 HW Data CSECT Size: 2_- — 

Stack Requirement: 

Q intrinsic □ ^’^o^edure 

Other Library Modules Referen ced; — ^ None, \ 

ENTRY POINT DESCRIPTIONS 

primary Entry Name: 

Function; Finds maximum value in a double precision integer Yf 


^"gCuer endtt^d code for HWS con=tru=t o. th. 

MAX(<DP integer array>) 
j I other LjJbrary Modules: 

,, n 1+7 8m+-4.3k, where m = # of times 

^ kl;« of time; COREMAX changes, and m+k - # of 

elements in array-1, , 


Input Arguments: 
Type 

Integer array 
Integer (size) 

Output Results: 
Type 

Integer 

Errors Detected; 
Error # 


Precision 


Precision 


How Passed 

R2 0’^^ element 
R5 


How Passed 


Cause 


Fixup 


Units 


Units 


Comments 


5 Registers Unsafe Across Call; R2, R4, R5, R6. 


*■ ooerations are on fullword integers. 

Algorithm: Same as DMAX, except that all operations a ^ 


ft'EPRODUCiBn.i're 


y G;.-' "ihij 
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|MIN 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name ; IMIN , 

Si ze of ■ Code Area : 8 

Hw 

Stack Reauirements 0 . Hw 

Data GSECT Size: 0 

Hw 

£3 Intrinsic 

Q Procedure 


Other Library Modules Referenced: 

None . 


- ■ 

ENTRY POINT DESCRIPTIONS 



Primary Entry Name: IMIN 




Function: j’inds minimum value in a double ptecision integer array* 



Invoked by; 

Compiler emitted code for HAL/S construct of the form; 
MIN(<DP integer array>) 

r~1 other Library Modules; 


Execution Time (microseconds): H.l + 7.8m + 9.3k, where ra = # of times GURRMIN 

does not change, k = # of times CURRMIN changes, and m+k = # Of elements in 
array -1. 

Input Arguments: 

Type 

Integer array 
integer (size) 


Precision 

DP 

SP 


How Passed 
R2 Qhh element 
R5 


Units 




Output Results: 

ZZE® 

Integer 


Precision 

DP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments: Registers Unsafe Across Call: R2, R4, R5, R6* 

Algorithm: Same as DMIN, except that all operations are done for fullword 

integers, 
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IPROD 


HAL/S-PC 

LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name; 

IPROD 

Size of -Code Area: 22 

Hw 

Stack Requirement; 

0 Hw 

Data CSECT Size: 0 

Hw 

0 Intrinsic 


Q Procedure 



Other Library Modules Referenced; None, 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; IPROD 

Eunctxon; Calculates product of elements in a double precision integer array. 

Invoked by: 

□ Compiler emitted code for HAL/S construct of the form; 

PROD(<DP integer array>) 

□ Other Library Modules: 

Execution Time (microseconds) : 17. OL + 21.6m + 5.8 if product is not zero, where 

L = # of positive intermediate products; m - # of negative intermediate products ; 
L+m = # of elements in array. 17.0L + 21.6m + 19.6 if product is not zero, where 
L and ra are as above# L+m ■=; (index into linear representation of the array of 
^ ^ the first zero element) ■^1- 

Input Argiomants s . 


Type 

Precision 


How Passed 

Units 

Integer array 

DP 

. 

R2 •+ 0'^^^ element 

- 

Integer (size) 

SP 


R5 

_ 

Output Results; 

Type 

Precision 

. 

How Passed 

Units 

Integer 

DP 


R5 

- 

Errors Detected: 

Error # 

' 

Cause 

Fixup 


Comments ; Registers 

Unsafe Across 

Cali: R2, 

R4, R5, R6, R7. 



Algorithm: Same basic algorithm as DPROD, however, special detection 

of an overflow condition is performed; For fullword integer 
multiplication, the overflow indicator is only set when -1 is 
multiplied by -1, The result after each multiplication is checked 
for an overflow by testing ‘the first 32' bits of the 64 bit result 
for all zeros or ones, If the result does overflow 32 bits, then a 
fixed point overflow is forced by adding a very large number to 
the first register of the pair (the register with the overflowing 
bits) . 
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I SUM 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; IS™ 


Size of Code Area; 6 


Stack Recjuirement; 


Hw Data CSECT Size; 


0 Intrinsic 


□ Procedure 


Other Library Modules Referenced; • 


ENTRY POINT DESCRIPTIONS 
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5,3.6 Miscellaneous Routine Descriptions 

This subsection presents those routines which 
do not fall easily into the previous five sections. 

These encompass conversion routines as well as "service" 
routines used by other library members. 


5-285 

INTERMETRIGS INCORPORATED • 701 GONCORD AVENUE; CAMBRIDGE. MASSACHUSETTS 02138 • (617) 661-1840 




ENTRY POINT DE5CKEPTIONS 

QrpnP 

Primary Entry Name? 

Function; Conversion from bit data to character data. 

^"Q^Smpiler emitted code for HAL/ S construct of the form; 

CHARACTER_^„(<bit string>) . 

@BIN 

[]] other Library Modules; 

Execution Time (microseconds); 161.0 (for 16-bit string) 


Input Arguments; 
Tj£e 
Bit 

Integer (length) 

Output Results: 

Type 

Character 

Errors Detected: 
Error # 


Precision 


Precision 


How Passed 
R5 
R6 


How Passed 
R2 -*■ descriptor 


units 


Units 


Cause 


Comments. Registers Unsafe Across Call; Rl,R2,R3,R4,R5,R6,R7. 

Algorithm; First, unwanted bits are shifted out of the string, using ■ 
the length argument. Then, bits are shifted one by one out of the top o 
the R5 into the bottom of R4, where they are shifted to bit positions 
15 and 31 and converted to character format. The output string is 
stored halfword by halfword, with the length taken directly from the 
input length. 
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CSHAPQ 


hal/s-fc library 

ROUTINE DESCRIPTION 


Boiiree Member Name: CSHAPQ 

Size of Code Area: 40 

Hw 

Stack Reouirement: T8 Hw 

Data CSECT Size: 4 

_ Hw 

n Intrinsic 

0 Procedure 


Other Library Modules Referenced: 

CTOH . CTOI . CTOE . CTOD 



ENTRY POINT DESCKEPT10N5 


Primary Entry Names CSHAPQ 

Functions shapes arrayed character data to arrayed numeric data of 
an explicit type and precision. 

Invoked by: ' 

Q| Compiler emitted code for HAL/S construct of the fosnns 

INTEGER^ (CA) , INTEGERgj^Q^,^^^ (CA) , SCALAR^ (CA), SCALAR^gj^Q^gj^g ^ (CA) , 

where CA is a character array of length n of 
Q Other Library Modules : CHARACTER (m) . 


Execution Time (microseconds): (See next page) . 


Input Argsoments: 

Type Precision 

character array (n) 
integer (n) 
integer (type *) 
integer (m) 

Output Results ; 


Type 
array(n) 

Errors Detected: 
Error # 


SP 

SP 

SP 

Precision 

type 


Cause 


How Passed 

r 4 1st element 
R5 
R6 
R7 

How passed 


R2 


Units 


Units 


Fixup 


Comments: Registers Unsafe Across Call: F0,FlrF2,F3,E4,F5 

type*: 0 H conversion 
1 -»■ I conversion 
. 2 ->• E conversion 

Algorxthra: 3 D conversion 

The address of one of 4 internal loops is loaded from a table using 

the type code as an index and control is passed to that loop. The 

four internal loops are similar in action; a call is made to the 

appropriate character conversion routine (CTOH, CTOl, CTOE, CTOD) 

follov;ed by the appropriate store (STH, ST, STE, STED) into the result 

array, followed by instructions to bump both the character and result 

array pointers, looping on n. v,. 
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CSHAPQ 


CSHAPQ 

Execution Time (microseconds) ; 

For halfword INTEGER conversion: 
n 

25.2 + E (19.6 + CTOH ) 
k=l ^ 

where CTOH = time in CTOH for the conversion. 
K 

For fullword INTEGER conversion: 
n 

24.8 + 2 (20.2 + CTOr ) 

k=l ^ 

where CTOI = time in CTOJ for the conversion. 
1C 

For fullword SCALAR conversion: 
n 

25.2 + E (19.6 + CTOE ) 
k=l ^ 

where CTOE^^, = time in CTOE for the conversion. 

For double-wor-d SCALAR conversion: 
n 

22.8 + E (22.8 + CTOD ) 
k=l ^ 

where CTOD = time in CTOD for the conversion. 
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CSLD 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 


Source Member Name: CSLD 

Size of - Code Area: 246 

Hw 

Stack Reaui remen t: 22 Hw 

Data CSECT Size: 4 

Hw 

n Intrinsic 

jTj Procedure 


other Librarv Modules Referenced: 

None . 


1 : * 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name: 

Function: Loads bit pattern of a character string. 


Invoked by: 

P~| Compiler emitted code for HAL/S construct of the form; 

B=SUBBIT(C) where B is a bit string and C is a character string. 


n other Library Modules: 


Execution Time (microseconds) ; if length (C) = 0: 28.8 

If length(C) > 0; 56.3 + 0.8 (if length(C) >4) 


Input Arguments: 
Type 

char string 


Precision 


How Passed 
R2 descriptor 


Units 


output Results: 

bit string 

Errors Detected: 
Err'or # 


Precision 
length 32 


How Passed 
R5 


Cause 


Fixup 


Units 


Comments: if input string is null, the 0 bit string is returned; no error. 

Registers Unsafe Across Call; R5/F0,F1. 

Algorithm: The first character is set to 1 by clearing R5. The 

character width is set to the current length of the string. For 
the rest, see the description under entry CSLDP, after the 
character partition checking , at the point marked ( a\ . 
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CSLD 


Secondary Entry Uame; 


CSLDP 


Function- bit pattern of a partitioned character strxng. 

Invoked by: 


□ Compiler emitted code for HAL/S construct of the form 
BIT_STRING = SUBBIT (CHAR_STRING^jp,pjj FIRST^ 

Q Other library modules: 


Execution Time (microseconds) : 


69.7 + 0.8 (if WIDTH > 4) 

+ 4.0 (if FIRST is even) 


Precision 


Input Arguments; 

Type 

character string , 

integer (first character) SP 
integer (last character) SP 

Output Results: 

«Type Precision 

bit string length(32) 

Errors Detected: 

Error # 


How Passed 
R2 ">■ descriptor 

R5 

R6 


How Passed 


Units 


Units 


R5 


Cause 


17 


Character subscript out of legal 
range . 


1 ) 

2 ) 

3) 


Fixup 

If <1, set to 1 
IF > length of string, 
set to length (string) 
If last char < first 
char, return 0 string. 


Comments : 0 bit string returned if last character 

specified first character specified 
(with ERROR 17) . Registers Unsafe- Across Call: R5,P0,Fl. 

Algorithm; character partition is cheeked for validty b^re anything 

else is done. All error 17 »s are sent during this phase. The 

partition width is checked, and if it is 0, the zero stringers 
SJu^ned in R5. If greater than 4, it is set to 4. The address of 
the halfword containing the first character f f ® ^ 

adding JsCl+first character) to the address of the first halfword 
S the string. This halfword and the next two halfwords are loaded 
? . half of R4, and the high and low halves of R5, respectively , 

S^^nS; bi^s^re mLSd Sff the ^nd J^ifted off^^^^^ (shift 
covmt = 48 - 8 *width), and the desired bit string is left in Ru. 
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CSLD 


Secondary Entry Name: CPSLD 

Function: Loads specified bits of a character string. 


Invoked by: 

Compiler emitted code for HAL/S construct of the form; 
BIT_STRING = SUBBIT^^Pg^ (CHAR_STBING) 

□ Other library modules: 

Execution Time (microseconds) : 71.8 


Input Argxaments ; 
Type 

character string 
integer (first bit) 
integer (last bit) 
Output Results: 

Tyge 

bit string 


Precis j.on 

SP 

SP 

Precision 
length (3 2) 


How Passed Units 

R2 descriptor 
R5 
R6 

How Passed Units 

R5 


Errors Detected; 
Error # 

30 


Cause 

Subbit partition out of range. 


Fixup 

1) If ist bit <lf set to 1 
(keep constant partition 
width by adjusting last bit) 


2) If 1 st or last bit > 

last bit of character string, 
set egual to last bit of 
char string. 


Cdmments: If input string is null, ERROR 30 is sent 

and the 0 bit string is returned. 

Registers Unsafe Across Call: R5,F0,F1. 

Algorithm; The subbit partition is tested for validity before anything 
else is done. All ERROR 30' s are sent during these tests. 4 halfwords 
containing the required partition are loaded into a register pair. Unwanted 
bits are shifted off the top (left shift count = first bit-1) , and the 
bottom (right shift count = 64— width) , leaving the required string in R5, 


/t 
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CSLD 


Secondary Entry Name; 

Function: Loads selected bits of a partitioned character string. 

Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 

BIT STRING = SUBBIT^ „ (CHAR STRING^ _ ) 

— A TO B — C TO D 

r~] other library modules; 

Execution Time (microseconds) : 98.6+9.2 (if C is even) 

How Passed Units 

R2 -+ descriptor - 

R5 

How Passed Units 

R5 


Input Arguments: 

Type Precision 

character string - 

integer (C) SP 

(Continued on bottom of this page) 
output Results; 

Type Precision 

bit string length (32) 


Errors Detected: 
> Error # 

17 

30 


Cause 

character subscript out of legal range, 
subbit partition out of legal range. 


Fixup 
(See CSLDP) 
(See CPSLD) 


Comments: 

Registers Unsafe Across Call; R5,F0,F1. 


Algorithm: fhe character partition is checked for validity, and the 0 bit 

string is returned if last character < first character. Then the subbit 
partition is checked, resetting the bit pointer to’ point 8 bits farther on 
if the character partition begins in the second character of a halfword. 4 
halfwords containing the required partition are loaded into register pair 
R4 t-r 5, Unwanted bits are shifted off the top (shift count = relative l^t 
bit-1) and the bottom (shift count = 64-bit width), leaving the desired 
string in R5. 


Input Arguments (Con't) ; 

Type Precision 

integer (D) SP 

integer (A I I B) (SP| jsP) 


How Passed 
R6 
R7 


Units 
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CSID 


Secondary Entry Name: 


CSST 


Function: string into a character string. 


Stores a 


Invoked by: 

n romoiler emitted code for HAL/s construct of the form: 

SUBBIT (G) = B where B is a BIT string and C is a character s ring. 


□ Other library modules: 


Execution Time (C) > 0; 135.8 + 1.0 (if length (C) > 4) 


Input Arguments: 
Type 

bit string 


Precision 


How Passed 
R4 


Units 


Output Results : 

Type 

character string 


Precision 


How Passed 
r 2 descriptor 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


No errors detected in CSST» 


Co«ents. ISt 

Algorithm: . ^ i hv clearinq R5, the character width is 

The first S\?tL Loceesing continues as at 

set to the current length of tne srriuy ^ poctp 

Q in the description of the algorithm at entry CSSTP. 


ORffiffiA-L PA&i. 1= 
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CSLD 


Secotidary Entry Names CSSTP 

Function: To store a bit string into a partitioned character string. 

Invoked by: 

Q Compiler emitted code for HAL/S construct of the form: 

SUBBIT (CHAR STRING, = BIT STRING 

— A TO B — 

r~| other library modules: 


Execution Time (microseconds) : i4g 


Input Arguments: 

Type Precision 

bit string - 

integer (first character) SP 

integer (last character) SP 

output Results; 

Type Precision 

character string — 

Errors Detected; 

Error # Cause Fixup 

17 character subscript out of legal range. .(See CSLDP) ^ except 

if last char < first 
char, then leave input 

Comments: Registers Unsafe Across Call; R5,F0,F1. string unchanged. 

CSSTP cannot change the current length of the character string; 
gives error is subscript out of current legal range. 

Algorithm; 

The character partition is checked for validity, and ERROR 17 is sent if 
anything is bad . 

The character 'partition width is checked, If it is < 0, then the input 
character string is returned unchanged. If > 4, then it is set to 4. 

The first bit and last bit are determined as; 

First bit = 1 + 8* (first character-!) 

Last bit = First bit + 8*character width-1 

The first bit, last bit, and character width of the string are then sent 
to under entry CPSST, 
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+ KA + KB , where KA = 1 . 0 if B-A>4 

0 otherwise 
KB = 9.2 if A is even 
0 otherwise 

How Passed 

R4 
R5 
R6 

How Passed units 

R2 ->■ descriptor i- 


Units 


CSLD 


Secondary Entry Name: CPSST 

Function: To store a bit string into specified bits of a character string. 


Invoked by: 


{x| Compiler emitted code for HMi/S construct of the foimv: 

SUBBIT „(CHAR STRING) = BIT STRING 

A TO B — — 

□ Other library modules: 


Execution Time (microseconds): 114.4 


Input Arguments : 
Type 
bit string 
integer (first bit) 
integer (last bit) 
Output Results; 

character string 


Precision 

SP 

SP 

Precision 


How Passed 

R4 

R5 

R 6 


How Passed 
R2 -> descriptor 


Units 


Units 


Errors Detected: 
Error # 

30 


Cause 

subbit partition out of legal range 


Fixup 

(See CPSLD) 


Comments: CPSST cannot change the current length of the input character 

string. In particular, a null character string input will result in a 
null string output. Registers Unsafe Across . Call : R5,F0,F1. 

Algorithm: Set character partition width to the current length of the 

character string. If it is 0, exit immediately after sending ERROR 30. 

© Test subbit partition for validity, and send ERROR 30 if anything 
is bad. Find the, first halfword containing the specified partition. 

The first hit relative to that halfword, and the bit partition width thus; 

bit width = last bit " first bit +1 
first halfword = 1 + (first hit - 1) /16 
. relative first bit = first bit - 16 (first halfword 1 ) 

Load 4 halfwords, beginning with the first halfword of the partition, 
into register pair R4-R5. 

Prepare a mask with O's in the specified bit positions and l^s else 
where as the I’s complement of: 

^ 2 ^it width last bit^ 

where relative last bit = relative first bit + bit width -- 1 , 

Use this mask to mask out the old bits in R4^R5. Shift the input bit 
string left by (64-relative last bit) positions to align it with the 
specified bit positions. Then OR it into the contents of R4-R5, Store 
this back into the character string, and exit. 
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CSLD 


Secondary Entry Name; CPSSTP 

Function: To store a bit string into selected bits of a partitioned 

character string. 

Invoked by: 

(3 Compiler emitted code for HAL/S construct of the form: 

SUBBIT „ (CPIAR STRING ' “ BIT STRING 

A TO B — C TO D _ 

□ Other library modules: 

Execution Time (microseconds): 145,0 + 9. 2 (if c is even) 


Input Arguraents; 

Type 

integer (C ) 
integer (D) 

(Continued on bottom 

Precision 
SP 
• SP 

of this page) 

How Passed 
R5 
R6 

Units 

output Results; 
TZEI 

character string 

Precision 

How Passed 
R2 descriptor 

Units 

Errors Detected: 
Error # 

Cause 

Fixup 



17 character subscript out of legal range (See CSSTP) 

30 subbit partition out of legal range ‘ (See CPSST) 

Comments; CPSSTP cannot change the current length of the input character 
string. . 

Registers Unsafe Across Call; R5,F0,F1, 

Algorithm: Check character partition for validity, give any error 17 *s necessary, 

and exit if last char < first char on Currlen = 0. Reset character pointer 
to 1 halfword before the first halfword of the specified partition, bumping 
first and last bits by 8 if the first character is even (so lies in low-order 
8 bits of the halfword) after checking validity of first bit, and sending 
error 30 if it is < 1. Then continue as fSTi of GPSST. 

Input Arguments (Continued) 

Type Precision 

integer (a| [b) (SP'lJsP) 

bit string - 
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I — f 


How Passed 
R7 
R4 


Units 







CSTRUC 



HAL/S-FC LIBRARY 

routine DESCRIPTION 



Source Member Name: CSTRUC 

Size of Code Area: 

12 

Hw 

Stack Requirement: 0 hw 

Data CSECT Size; 

0 

Hw 

Intrinsic 

r~] Procedure 



Other Library Modules Referenced: 

None . 




1 — 



ENTRY POINT DESCRIPTIONS 
Primary Entry Name; CSTRUC 


Function: Compares two structures and returns result (- or in condition 

code. 

Invoked by: 

[3^ Compiler emitted code for HAL/S construct of the form; 

If SI = S2,THEN... , where SI and S2 are structures. 

r~l other Library Modules : 

5.4 + 10. 4n, n = # halfwords compared. 
Execution Time (microseconds) : ' 


Input Arguments: 
Type 

Structure 
Structure 
Integer (count) 

Output Results: 

Tyge 

equal/not equal 

Errors Detected: 
Error # 


Precision 

SP 

Precision 


How Passed 
R2 1st HW 
R3 ^ 1st HW 
R5 


How Passed 
condition code 


Units 

HW 

Units 


Cause 


Fixup 


Comments; In order that the correct code is in the C.C, on exit, it is reset 
immediately before branching back to the calling program (BCRE does not set the 
C.C,) . An exclusive OR of a register with itself sets to C.C. to ’00' (-) . An 
OR of a non-zero register (R4 is used because, as the return 
address register, it is always assumed to be non-zero) resets to 
C.C. to 'll' (^) , 

Registers Unsafe Across Call; R2,R3^R4,R5,R6. , , 1 

Algorithm: The two Structures are compared halfword-by-haflword until a 

pair does not match, or all of the halfwords are compared and found to be 
equal . The condition code is set by the compare instruction . 
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ENTRY POINT DESCKIPl?IONS 

PTOR 

Primary Entry Name: 

Function* Conversion from character string data to bit string. 


Invoked by; 

[3 Compiler emitted code for HAL/S construct of the form; 

BIT (C) , where C is a character string. 

@BIN 

ri other Library Modules : 

NCHAR 

Execution Time (microseconds): 25.8 + X (27.8 + KAj^ + KB + KG) 

where: (Continued on bottom ^=1 
of this page) 

Input Arguments: 

Type Precision How Passed 

Ch^r^ter - R2 -^ descriptor 


Units 


Output Results : 
Type 

Bit 


Precision 

length=31 implicitly 


How Passed 
R5 


Units 


Errors Detected; 
Error # 

29 


Cause 

Input string hot in standard format. 


Fixup 

Return zero bit 
string . 


Comments; If the input string includes more than 32 digits, then high 

order bits will be lost. Null string input causes an error. 
Registers Unsafe Across Call: R5,P0,P1. 

Jilgorithm; Characters are examined one by one. Blanks are ignored, 

When a is encountered, a bit is shifted into the low^order bit 

of the result register. When a 'O' is encountered, a *0' bit is shifted 
into the loW"*<>rder bit of the result register, 


Execution Time (Continued): NCHAR - length (C) 


KA =1.2 if X is odd 
^ 0 if X is even 

KB = 6,0 if G$(K)='1' 
0 otherwise 


KC = 4.4 if C$(K)=blank 
0 otherwise , 
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CTOE 



HM./S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

CTOE 

Size of Code Area; 


287 Hw 

Stack Requirement: 

30 HW 

Data CSECT Size: 

2 

Hw 

r~) Intrinsic 


0 Procedure 



Other Library Modules : 

Referenced : 

GTBYTE 




ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 

Function: Performs internal character to single precision scalar 

conversion. 

Invoked by: - 

nn Compiler emitted code for HAL/S construct of the forms 
SCALAR (<character string>). 

nn Other Library Modules: 

CSHAPQ 

Execution Time (microseconds): See end of algorithm description. 


Input Arguments: 
Type 

character 


Precision 


How Passed Units 

R2 descriptor - 


Output Results: 

Type Precision How Passed Units 

Scalar SP FO - 


Errors Detected: 
Error # 

20 


Cause 

Input si-ring not in standard format. 


Comments : 

Registers Unsafe Across Calx,- F0,F1,P2,F3 ,p4,f5. 

Algorithm: First, leading and trailing blanks are stripped from the input 

string, and an error is signalled if the string has length = 0 or consists 
entirely of blanks. Next, a scalar is constructed from the digits of the 
input string to the left of the exponent. The construction proceeds as 
follows : 

First, we set Sq = 0, Now, at the k-th step, k > 1, we let = 10*Sj^_y + d]^, 
where djj- is the k-th digit in the string. All calculations are double 
scalar. When S^becomes > X'4E19999A' , all* further digits are insigni:ficant 
and are scanned for validity but otherwise ignored. 

(Continued on next page) 
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CTOE 


E®K0DIFCIBIL^ oj 
OBffilSM* PA-GI'-' 


CTOE 

Algorithm (Con't) 

This yields a scalar which may be incorrect by a power-of-10 
multiple, but otherwise represents the decimal number of the left 
of the exponent. As for the power of 10, if a decimal point is 
encountered while scanning the input string, a count is kept _ of 
how many digits there are to the right of the decimal point in the 
input string. The negative of this count is stored in temporary 
location COUNTE for later use. 

Next, the type of exponent (if any) is determined, and the 
value is calculated with a simple fixed-point calculation 
(ab = 10a + b) and added to COONTH, COUNTB, or COUNTE accordingly 
as ifie type of exponent is hexadecimal, binary, or decimal. Con inu 
this process as long as there are remaining exponents. 

If the end of the string is reached with no invalid characters 
found, then the scalar is modified according to the exponents alrea y 
computed. First, the power-of-2 exponents are combined as 4H + B, 

since 


16' 


H 


2 ® = 2 ^^ 


The high part of this (power of 16) is added to the exponent 
of the soalL, while the low 2 bits oontrol a loop in which th 
scalar is doubled 0-3 times . 

Next, the decimal exponent, which has been combined wi^ 
the coSection for the decimal point in the input, is used as 
uipr of 10 in the standard way of taking integral powers. 
:ea?riftei^eSaS is .nltiplii or divided by this result according 
to the sign of the exponent, completing the conversion. 
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CTOE 


CTOE 


Timing ; 


88.4+11.0 • (floor (# leading blanks/2)) 

+ 12,0 (if # leading blanks odd) 

+10.2 (# trailing blanks) 

+ 2.0 (if + sign) 

+ 7.0 (if - sign) 

+ 59,6 (# significant digits where Sj^ < X'4 e19999A') 

+ 17.6 (# significant digits) 

+ 47.2 (if at least 1 significant digit) 

+ 62.4 (# significant digits where Sj^ > X'4E19999A') 

+ 20,6 (if decimal point) 

+ 9.6 (if no exponents of any kind) 

+ 40.2 (if any exponents) 

+ 9.6* (# E type exponents) 

+ 15.2- (# H type exponents) 

+ 18.2- {# B type exponents) 

+ 9.8* (# exponents) 

+ 37.8. (# additional exponents) 

+ 0,2* (# exponents with '+' sign) 

+ 7.8* (# exponents with sign) 

+24.6- (total number Of exponent digits) 

+ 22,8 (if any B or H exponent) 

+7.6 ( total B exponent mod 4 ) 

(if p=0) 

+ 27.8 div(|p|, 23)) (if p positive) 

+ 28.8 div( p , 23)) (if p negative) 

’ ( (# significant zeroes in the binary representation 
of |p| mod 23) - 1 (if |p| mod 23 is even) 

’ ( (# significant ones in the binary representation 
of |p| mod 23) - l(if |p| mod 23 is odd) 

(if [pi mod 23 0 ) 


(if p ^ 0) 


+ 36.2 


1.6 (if p < 0) 

+ 14.4* ((# of even indexed characters after leading blanks (+1) 

+ 15.6»((# odd indexed characters after leading blanks) +1) 

where p = total of B type exponents - (# significant digits after decimal point) . 
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CTOE 


Secondary Entry Name; 


CTOD 


Function: Performs internal character to double precision scalar 

conversion. 

Invoked by: 

lx] Compiler emitted code for HAL/S construct of the form; 

Pn other library modules: CSHAPQ 


Execution Time (microseconds); Time is computed by CTOE formula - 1.8. 


Input Arguments: 
Type 

character 


Precision 


How Passed 
R2 ->■ descriptor 


Units 


Output Results; 
Type 
Scalar 

Errors Detected; 
Error # 

20 


Precision 

DP 


How Passed 

FO, FI 


Units 


Cause 


Fixup 


Input string not in standard format. 


Return 0 . 0 


Comments 


Registers Unsafe Across Call: FO,Fl,F2,F3 jF4,F5. 


Algorithm: same routine as CTOE; all conversions result in a double 

pj^Qcision value of which the portion xn FI is dxscarded when 
single precision is desired by the caller of thxs routine. 


OF THDS 
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Function: converts a character string to a double precision integer. 

Invoked by: * 

[3 Compiler emitted code for HAL/S construct of the form; 

IOTEGEHgj,„„gj^j,(<charac:ter string» or «character string>) 

□ Other Library Modules; CSHAPQ 



Comments; 

Registers Unsafe Across Call; R5,F0,F1. 

Algorithm; First, leading blanks are stripped from the input string. If a 
minus sign is encountered, a flag is set. The basic conversion proceeds 
as follows; Initialize Iq to 0. At step k, k > 1, let - 10. 1^-1 + ctjcr 
where d]< is the k-th digit in the input string. At the end, this fixed- 
point calculation gives a fullword integer. This sign is tacked on, and 
the result is shifted left 16 bits if a halfword answer is required. 
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r 



CTOI 


S 


CTOI 


Exeuction Time (microseconds) : 


k + 11. 0* (floor (# leading blanks/2)) 

+16.6 (if # leading blanks odd) 

+ 9.4 (if sign) 

+ 10.6 (if first character is a number) 

+ 15.6-(# even index characters after leading blanks) 
+ 14.4* (# odd index characters after leading blanks) 
+ 13.0 (if # trailing blanks >0) 

+ 8.4* (# trailing blanks) 

+ 28.2‘((# non blank characters) -1) 

where k 72.6 
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CTOI 


Secondeory Entry Name: 


CTOH 


Function: character string to a single precision integer. 


Converts a 


Invoked by: 


ri Compiler emitted code for HSl/S construct of the form: 

«character strrn 9 » , 

13 Other library modules: CSHAPQ 


Execution Time (microseconds) : Same as 


for CTOI, except k = 74.4. 


Input Arguments: 
Type 

Character 


Precision 


How Passed 
R2 ■+ descriptor 


Units 


output Results: 
Type 

Integer 


Precision 

SP 


How Passed 
R5 


Errors Detected: 

Error # 

22 Input string not in standard format. 


Cause 


Fixup 

Return 0 


Units 


Comments : 

Registers Unsafe Across Call: R5,rQ,Fl. 

Algorithm: 

See CTOI. ■ 
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CTOI 


Secondary Entry Name: CTOK 

Pvinction: Converts a character string to a 32-bit string for use wxth 

the @DEC of the BIT conversion function. 


Invoked by; 

nn Compiler emitted code for HAL/S construct of the form: 

BIT„ (<'character string>) . 

@DEC 


n other library modules: 

Execution Time (microseconds) ; (see below) . 


Input /Arguments ; 
Type 

character 


Precision 


How Passed Units 

R2 descriptor 


Output Results; 
Type 

bit string 


Precision 

3 2 -bits 


How Passed 
R5 


Errors Detected: 
Error # 


Cause 


22 Input string notin standard format. 


Fixup 

Retiirn 0 


Units 


Comments. Unsafe Across Call: R5,F0,Pl. 

Algorithm: See CTOX. , 

Execution Time: 85.8 + 11 . 0 - (floor* (# leading blanks/2) ) 

+ 18.6 (if # leading blanks odd) 

+ 15.6* (# even index characters after leading blanks) 
+ 14.4- (# odd index characters after leading blanks) 
+13.0 (if # trailing blanks > 0) 

+ 8.4- (# trailing blanks) 

+ 28. 2-(# non blank characters - 1) 


EEPRODIJCIBILJT' 

0BI6IHAL. MGi:; 




■ilTF' 
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CTOX 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 


Size of Code Area: 


Stack Requirement: 

□ Intrinsic 


H w Data CSECT Size: 
0 Procedure 


Other Library Modules Referenced: GTBYTE 


ENTRY POINT DESCRIPTIONS 

PTny 

Primary Entry Name: • 

Function: Conversion from character string to bit string, hexadecimal 

radix. 

Invoked by; 

nn Compiler emitted code for HAL/S construct of the form; 

BIT _{C) , where C is a character string. 

0HEX 


□ other Library Modules: 


Execution Time (microseconds) : (gee next page) . 


Input Arguments; 

^y.£e 

Character 


Precision 


How Passed 
R2 ->• descriptor 


Units 


Output Results: 


Errors Detected: 
Error # 


Precision 
32 bits 


How Passed 


Units 


Cause 

String not in standard hexadecimal 
conversion format. 


Fixup 


Return 0 


Comments; Imbedded blanks, or leading or trailing blanks, are all considered 
invalid characters. An input string too long to be accommodated in 32 bits 
will cause high order bits to be lost. Registers Unsafe Across Call; R5,F0,F1. 
Algorithm; Characters are fetched one by one. in the CTOX entry, 
characters VA* - 'F' c?re converted to their bit equivalents, characters 
’O' - '9' are passed on to the common section, and an error is signalled 
if the input character lies between X'39* and X'41' (DEU characters '9' and 
'A' respectively). In the CTOO entry, an error is sent if the character is 
greater than X' 37' (DEU character '7'). Other characters are passed to 
the common sechon for translation. 

' ' In the common section, decimal digits 0-9 (0-7 for octal) are translated 

to their bit dquivalents, and an error is sent if the character precedes '0' in 
the collating sequence. These bit equivalents, and the ones passed from the 
CTOX section, are shifted into the low-order 4 bits (3 for octal) of the 
result register. 
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CTOX 


CTOX 


Execution Time (microseconds) ; 
NCHAR 

32.0 + Z (33.6 + KA, + KB, ) 
k=i 


where : 

NCHAR = length (C) 

KAx - 0 if C$ (X) is alphabetic 
6.8 if C$ (X) is numeric 

KB = 1.2 if X is odd 
0 if X is even 
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CTOX 


CTOO 

Secondary Entry Name; 

Function: Conversion from character string to bit string, octal radix. 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 
(C) , where C is a character string. 

n other library modules : 


Execution Time (microseconds); 33.4 + 

NCHAR == length (C) , 


Input Arguments; 

Character 


Precision 


NCHAR 

E (34.2 + KA ) , where 
k=l 

KA =1.2 if X is odd 
^ 0 otherwise 


How Passed 
R2 descriptor ’ 


Units 


Output Results; 
Type 

Bit 

Errors Detected; 
Error # 

31 


Precision 

32-bits 


How Passed 

R5 


Cause 


String ndt in standard octal convert 
sion format, 


Fixup 

Return 0 


Units 


Comments ; 

Registers Unsafe Across Call: R5,F0,Pl. 


Algorithm: See CTOX. 
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DSLD 


HAL/S-FC LIBRARY 

routine description 



Size of Code Area: 22 

Hw 

n<anriii vement: T® Hw 

Data CSECT Size: 

to 

Q Intrinsic 

3(3 Procedure 


Other Library Modules Referenced: 

None , 





ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DSLD 

Function: Loads specified bits of a double precision scalar. 


Invoked by: 

|)t] Compiler emitted code for HAL/S construct of the form; 

SUBBIT CSCAL2^_A/AR|gj^g^) ; SUBBIT^^^g^ LAST DOUBLE^' 

i 1 Other Library Modules: 

Execution Time (microseconds): 36.5 


Input Arguments: 

Type Precision 

Scalar DP 

Integer (first bit) SP 
Integer (last bit) SP 

Output Results : 

Type Precision 

Bit string length 32 


Errors Detected: 
Error # 

30 


How Passed 

R2 Scalar 
R5 
R6 

How Passed 
R5 


Units 




Units 


Cause 


Subbit partition out of range. 


Fixup 

1) If first bit < 1, set to 1 

2 ) If last bit > 64,. set to 64 


Comments : 


Registers Unsafe Across Call: R5. 


Algorithm: Get the double word operand in register pair R2 t-R 3 . If first 

bit —1 <0, then given ERROR 30 and set to 0, Use first bit 1 as left 
shift count to eliminate unwanted high order bits . Compute 64 - last bit 
+ first bit -1, and give ERROR 30 and set to 0 if it is < 0. Use this 
as right shift count to justify bit string in R3. Return contents of R3. 


RBPRODUCIBILITy OF THF 
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Primary Entry Name: 


Stores a bit string into selected bits of a double word 
scalar. 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form: 

SUBBIT „ „ (DOUBLE SCALAR) = BIT STRING 

A TO B — — 

□ Other Library Modules: 



Execution Time (microseconds): 64.6 


Input Arguments: 
TX£e 

Integer (A) 
Integer (B) 

Bit string 
Output Results : 

Scalar 


Precision 

SP 

SP 

Precision 

DP 


How Passed Units 

R5 ’ 

R6 

R7 

How Passed Units 

R2 scalar — 


Errors Detected: 
Error # 

30 


Cause 

Subbit partition illegal. 


1) If first bit < 1, set to 1 

2) If last bit >64, set to 64 


Comments: | 

Registers Unsafe Across Call: None. I 

Algorithm: Check first bit. If < 1,- send error 30 and set to 1. Save the 

last bit, and get the partition width as last bit - first bit t 1. Create 
a mask of width — partition width as l^idth ... p. If last bit ^ 64, shift 
left by 64 - last bit, If last bit > 64, send error 30 and set last bit 
to 64 by shifting right by last bit - 64. Then invert the (doubleword) 
mask.' Mask out the selected bits of the operand in storage. Then, shift 
the input bit string to the right position (left 64 last bit, or 
right last bit 64) , and OR to the operand in storage , completing the 
operation. 
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V 




ETOC 


HAL/S-FC 

LIBRARY 

ROUTINE DESCRIPTION 


^ „ ETOC 

Mi=»mn#ar* NamAi 


of Code Area: 

Hw 

20 

C4"a/-iV Pomn 

Hw 

. 64 

nafa rSECT Size: 

Hw 

Q Intrinsic 


0 Procedure 


Other Library Modules Referenced: 

None 



ENTRY POINT DESCRIPTIONS 


Primary Entry Name: Etoc ^ 

Function: converts a single precision scalar to standard internal 

character-string format for a scalar. 

Invoked by : ^ ^ 

Q Compiler emitted code for HAL/S construct of the form; 

CHARACTER (SC ALAR_VAR) 

I I Other Library Modules ; 


Execution Time (microseconds) : 


336.9 


Input Arguments: 
Type 
Scalar 


Precision 

SP 


How Passed 
FO 


Units 


output Results: 

Type 

Character string 


Precision 

length=14 


How Passed Units 

R2 ->■ descriptor 


Errors Detected: 
‘4 . Error # 


Cause Fixup 


Comments; maxlength of output string is ignored. 

Registers Unsafe Across Call; F0,F1,F2,P3,F4,F5. 

Algorithm; Clear Fl to convert to double precision. Determine the 
sign and get the absolute value of the input. If input =0, output 
string is ')i5Q.O’ padded with blanks to length 14 (length 23 for DTOC) . 

The next operation reduces the exponent of the scalar to X' 41* 
keeping track of the change in exponent that this requires. Since ^ 

logmx = (loginlS) (log,f-x), this is done, by getting (exponent - 65)*logiol6 
and using this as an exponent of 10 , dividing the scalar by the result, It^ 
is possible for this to be off by 1 , so another pass is made before continuing. 

At this point, the number is between 1- and 16. If it is greater than v_, , 

or equal to 10 , multiply by 1/10 and record the exponent as one greater, 

(Continued on next page) 

5-312 

INTERMETRICS INCORPORATED • 7Q1 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 ♦ (617) 661-1840 




ETOC 


ETOC 


Algorithm (Con' t) 


This causes the first decimal digit of the number to be 
the first hexadecimal digit of the scalar, in bits 8-11 of FO. 
This is stored, together with a blank if the value is > 0, or 
a '-'if the value <0. The remaining mantissa is in Fractional 
form in ^’O^Pl. This hexadecimal fraction is converted to decimal 
dxgxt-by-aigit by successive multiplication by 10, One digit is 
generated and stored with the decimal point, then 6 digits are 
stored in the next three halfwords. 

The sign of the exponent (as calculated above) is tested 
and either |E+' or 'E-' is stored in the next halfword. Two 
decimal digits of exponent are stored in the last halfword, 
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ETOC 


Secondary Entry Name: DTOC 

Function: Converts a double precision scalar to standard internal 

character-string format for scalar. 

Invoked by: 

El Compiler emitted code for HM</S construct of the form: 
CHARACTER (DOUBLE_SCAIAR) 

□ Other library modules: 

Execution Time (microseconds): 602.5 




Comments ; 


Registers Unsafe Across Call; F0,P1,F2,F3,F4,F5. 


Algorithm: similar to ETOC, except of course that FI is not zeroed. 

Also, rather than 6 digits being stored in the loop, 14 are computed 
and stored. The exponent section also looks different, as one more 
digit is stored with the exponent, changing its alignment, thus storing 
successively '<digit>E' , ' ±<digit>' , '<digit><garbage> ^ in the last 
3 halfwords . 
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ETOH 


HAL/S-FC LIBRARY 

ROUTINE DESCRIPTION 



Source Member Name: ETOH 

Size of Code Area; 

14 

Hw 

Stack Requirement: ^ Hw 

Data CSECT Size: 

0 

Hw 

Pn Intrinsic Sector 0 

Q Procedure 



Other Library Modules Referenced: 

None 




ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


ETOH 


Function: converts single precision scalar value to single precision 

integer. 

Invoked by; 

nn Compiler emitted code for HAL/S construct of the form; 

I = S; where I is a single precision integer, and 
S is a single precision scalar. 

Q Other Library Modules; 

QSHAPQ 

Execution Time (microseconds): 15.4 


Input Arguments; 
Scalar 


Precision 

SP 


How Passed 
FO 


Units 


Output Results: 

Type 

Integer 

Errors Detected: 
Error # 


Precision 

SP 


Cause 


How Passed 
R5 


Units 


Fixup 


Comments : 

Registers Unsafe Across Call: R4,R5,F0,Fl. 

Algorithm: The six most significant hex digits of the scalar argument 

are converted to a fullword integer value. The 4 most significant 
hex digits of the integer value are left in ‘the top halfword of the 
fixed point register after rounding the fraction. 
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ETOH 


Secondary Entry Ncune: 

Function; Converts a double precision scalar value to a single 
precision integer. 

Invoked by ; 

nn Compiler emitted code for HAL/S construct of the form; 

I = D; where I is a single precision integer, and 
D is a double precision scalar., 

□ Other library modules: 


Execution Time (microseconds) ; 17,4 


Input Arguments; 
Type 

Scalar 


Precision 

.DP 


How Passed Units 

FQ . - 


Output Results: 
Type 

Integer 

Errors Detected; 
‘ Error # 


Precision 

SP 


Cause 


How Passed 
R5 


Units 


Fixup 


Comments : , „ 

Registers Unsafe Across Call: r4',R5,F0,F1. 

Algorithm; See ETOH. 
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GTBYTE 




HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Names GTBYTE _ size of Code Area: 14. 

Stack Requirement: Q H w Data CSECT Size: 

g Intrinsic □ Procedure 

Other Library Modules Referenced; None. 


Kw 

Hw 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: GTBYTE 


Function: Fetches one character from a character string. Used for character 
manipulation by other library routines. 

Invoked by; ' 

□ Compiler emitted code for HAL/S construct of the form; 


L 


□ otter tiirary Modulas. cpas, OTOE, CUSW, CIKDEX, CMSIV, CTOB, 
^ CTOI, CTOX, CTEIMV. 

Execution Time (microseconds) : 14.4 to obtain lower gte 


Input Arguments: 

Type 

pointer ~ 

flag (which byte to fetch) - 

Output Results ; 

Type 

single character 

Errors Detected: 

Error # 


Precision 


Precision 


R2 


How Passed 
->-lHW in front of 


Units 

HW to fetch from 


lower half of R2 


( 00-upper byte 
( X' 8000' -lower byte 


Cause 


How Passed 
r 5 - upper halfword 


Fixup 


Units 


O^KJIHAL PiVUv 

Comments; 

Registers Unsafe Across Call: r2,R4*R5,F0,F1. 

Algorithm: The halfword off of the pointer is loaded into a register for ^ 

manipulation. If the flag indicates the upper byte is requested, the register 
is shifted right 8 bits and the lower half of the register rs cleared_to leave 
only the desired byte in the upper halfword of the regxster. If the flag 
indicates the lower byte is requested, then the first byte of the register 
is cleared. The flag is reset to indicate the upper byte if the lower^by 
was reouested and vice versa, and the pointer is updated if ^he fetched 
byte was even. This is done now since GTBYTE is usually called a number of 

times from a loop . 
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iTcx: 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

Stack Requirement: 28 


Size of Code Area: 


Hw Data CSECT Size; 


□ Intrinsic 

Other Library Modules Referenced: 


Procedure 


None . 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name: I TOC 

Function. converts a fullword integer into standard internal character 
string format for integers. 

Invoked by: 

Compiler emitted code for HAL/S construct of the form; 

CHARACTER CFULLWORDJENTEGER) 

I I Other Library Modules; 


Execution Time (microseconds): 254.6 


Input Arguments: 
Integer 


Precision 


How Passed 


Units 


Output Results: 

Type 

Character string 

Errors Detected: 

Error # 


Precision 


Cause 


How Passed 
R2 ->• descriptor 


Fixup 


Units 


Comments: No leading zeros or leading or trailing blanks, Maxlength 

of output area ignored. Registers Unsafe Across Call; None. 

Algoritlm: Digits are generated one by one. Thus: Let I = input integer. 

Then : 

dj^ = Ij^ - 10(1^/10) integer multiply and divide. 

W = 

The process terminates when Ij^- = 0. As pairs of digits are generated;^ 
they are stored, right to left, in a temporary output area. The temporary 
result is then given a sign if necessary and moved to the output area. 

If an odd number of characters were generated , the movre is with 8 bits 
offset for left alighment. 
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HTOC 


Secondary Entry Name: 

Function: converts a halfword integer into standard internal character- 

string format for integers. 

Invoked by: 

Q Compiler emitted code for HAL/S construct of the form: 

CHARACTER (HALFWORD_INTEGER) 

r~| other library modules: 


Execution Time (microseconds): 189.6 


Input Arguments; 

Type 

Precision 


How Passed 

Units 

Integer 

SP 


R5 

- 

Output Results: 

.Type 

Precision 


How Passed 

Units 

Character string 

- 


R2 descriptor 

- 

Errors Detected: 

Error # 

. . 

Cause 

Pixup 



Comments: No leading zeroes or leading or trailing blanks, Maxlength 

of output area ignored. 

Registers Unsafe Across Call: None. 

Algorithm:. 

Shift right algebraic 16 to>Joonvert single integer to double. 
Then proceed as in ITOC. 
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ITOD 


hmj/s-fc library routine description 


Source Member Name; ITOD 


Size of Code Area: 


Stack Requirement: 


Hw Data CSECT Size; 


0 Intrinsic Sector 0 


Q Procedure 


Other Library Modules Referenced: 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; 

Function; Converts a double precision integer to a doxible precision 
scalar. 

Invoked by; ■ 

Q Compiler emitted code for HAL/S construct of the form; 

D s= I; where D is a double precision scalar, and 
I is a double precision integer. 

FyI other Library Modules; QSHAPQ 


Execution Time (microseconds ) : 15 . 6 


Input Arguments: 
Type 

Integer , 


Precision 


How Passed 


Units 


Output Results; 

Tj[2£ 

Scalar 


Precision 


How Passed 


Units 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: The first register of the result register pair is set to 

plus or minus Or depending on the sign of the argument. The absolute 
Value of the argument is loaded into the secbnd register of the pair, 
and the result is normalized to a double precision scalar by adding D'O^. 


. 
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ITOE 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: ITOE Size of Code Area: 

Stack Requirement: 0 Hw Data CSECT Size; 

□ Procedure 
None 


Hw 

Hw 


o Intrinsic Sector 0 
Other Library Modules Referenced,: 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; ITOE 


Function; converts a double precision integer to a single precision 
scalar. 

Invoked by; 

jin Compiler emitted code for HAL/S construct of the form; 

S = I; where S is a single precision scalar, and 
I is a double precision integer. 

Other Library Modules: QSHAPQ 


Execution Time (microseconds): 12.0 


Input Arguments: 
T^£e 

Integer 


Precision 

DP 


How Passed 
R5 


Units 


Output Results: 
Scalar 

Errors Detected: 
Error # 


Precision 

SP 


Cause 


How Passed 
FO 


Units 


Fixup 


Comments ; 


Registers Unsafe Across Call: R4,R5,F0,F1. 


Algorithm; The integer argument is converted to floating point by the CVPL 
instruction and the binary point is adjusted by multiplication by. a 
scale.' factor. • 


5-321 

INTERMETRIGS INCORPORATED • 701 CONCORD AVENUE - CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 


T r 



KTOC 


HAL/S-FG LIBRARY ROUTINE DESCRIPTION 


Sour<^e Member Name : 

KTOC 

Size of Code Area: 

70 


Stack Requirement: 

0 

Hw Data CSECT Size: 

0 

Hw 


□ Intrinsic □ Procedure 

None . 

Other Library Modules Referenced; 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name: KTOC 

Function: performs bit-string to character conversion with decimal radix. 


Invoked by ; 

Compiler emitted code for HAL/S construct of the forms 


CHARACTER^^^ (BIT STRING) 
@DEC — 


I I Other Library Modules i 


Execution Time (microseconds); 262.5 (for 16 bits) 


Input Arguments; 
Tyge 

Bit string 
integer (length of 
bit stringi) 
Output Results : 

Type 

character string 


Precisxon 


How Passed 


Units 


SP 


R5 

R6 


Precision 


How Passed 


Units 


R2 -*■ descriptor 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments: Maxlength of output area ignored. No leading or trailing blanks. 

"Sign bit" of input string ignored. 


Registers Unsafe Across Call; R1,R2,R3^R4/R5,R6,R7,F0,F1. 
Algorithm; length of the character string is computed as: 


1+ (log^Q2) (bit length) 
A halfword count is computed from this as; 


truncated to an integer 


halfword count = (1 + character count )72 

Decimal digits are generated one at a time, from right to left, 
thus; Let = input string as unsigned integer, 

■ d. 


I, - 10 
k 


“‘■k+l " 


integer multiply and divide 

(Continued on next page) 
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KTOC 


KTOC 

Algorithm (Con't) 


The process terminates when the halfword covint is reached, 
with two digits stored per halfword. At the end, if an odd number 
of characters have been stored, the string must be shifted one 
character to the left for proper alignment. 
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MSTRUC 


Source Member Name; 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
2 : MSTRUC Size of Code Area: 


Stack Requirement: 

El Intrinsic 


_Hw Data CSECT Size; 
□ Procedure 


Other Library Modules Referenced: None 


MSTRUC 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: ^ 


Function: Moves a structure. 


Invoked by; 

fxl Compiler emitted code for HAL/S construct of the fora; 
SI = S2, SI and S2 are structures. 


r~l other Library Modules : 


Execution Time (microseconds): 4.2+9.4n, n=# halfwords moved. 


Input Arguments: 

Structure (S2) 
Integer (#HW) 

Output Results; 

Structure (SI) 

Errors Detected: 
Error # 


Precision 


Precision 


How Passed 
R2 ->■ first HW 
R5 


How Passed 
R1 first HW 


Units 


Units 


Cause 


Fixup 


Commentii ; 


Registers Unsafe Across Call; R1,R2 ,r4,r5,r6, 


Algorithm: structure is moved halfword-by-halfword in a load, store 

sequence for the number of halfwords specified in R5, 


REPPvODUCIBILHT of 

ORIGINAL PAGE Ig Fg-iF.* 
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QSHAPQ 

HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: 

QSHAPQ 

Size of Code Area; 

74 

Hw 

Stack Requirement: 

18 Hw 

Data CSECT Size: 

0 

Hw 

n Intrinsic 


Procedure 




Other Library Modules Referenced: ETOH.(DTOH) » ROUND CDTOI ) ,> ITOE^ ITOD 

ENTRY POINT DESCPJPTIONS 

Primary Entry Name; gSHAPQ 

Function: shapes data of a given type and precision to data of an 
explicit type and precision. 

Invoked by; - 

pn Compiler emitted code for HAL/S construct of the form; 

Used by the INTEGER, SCALAR, I4ATRIX, and VECTOR shaping functions. 

□ Other Library Modules; 


Execution Time (microseconds): 42.6 + 31. 8n, n = # times transferred. 


Input Arguments; 
Type 

Integer/scalar 
Integer (flag) 

Integer (count) 
Output Results ; 
Ti^ 

Integer/Scalar 


Precision 
SP/DP " 
DP 


Precision 

SP/DP 


How Passed Units 

R2 1st HW ■ 

R6; upper half for input data, _ 

lower half for output, ~ 

R5; nxm±»er of times to transfer - 

How Passed Units 

R1 -> iSt „ 


Errors Detected; 

Error # Cause • Fixup 

Scalar too large for integer conver- Set to maximum 
sion. representable 

value. 

Comments: QSHAPQ is called only if more than one item of the same data 

^Yps must be shaped . If only one item must undergo conversion, the 
conversion functions (DTOI, ETOI, ITOD, HTOE,etc.) are used. (Cont'd. on next page) 
Algorithm. flags for the input and output data are examined. The 

appropriate LOAD' routine is executed to load one item to be shaped. 

The appropriate 'STORE', or in some cases, 'CONVERT AND STORE' routine 
stores the shaped data item in the area pointed to by the destination 
pointer. ^ The source pointer is updated after each load? the destination 
pointed is updated after each store. Data is shaped and transferred itera- 
by-item. 

The values of the flags (R6 upper and lower) are; 0 - HW integer 

1 - PW integer 

2 - FW scalar 

3 - DW scalar 
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Cause ' 

Scalar too large for integer convert 


I 




QSHAPQ 


QSHAPQ 

Comments: (Continued) 

Registers Unsafe Across Call: F0,F1. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 



Comments: The original SEED (F ' 1435 ' ) is declared as a data constant* 

To allow storage into this '’constant” for updating SEED, the storage 
protection is turned off for SEED. Registers Unsafe Across Call: F0,P1,F2,F3. 

Algorithm: Multiply F' 65539' by SEED. SEED originally F'1435', but 

is updated on each pass through RANDOM. Use the least significant 32 
bits of this product (SEED x 65539) to form the new SEED. If the result 
is ^ 0, then RESULT = new SEED. If RESULT < 0# then uew SEED l^SULT-NEGMAX , 
where NEGMAX - X' 80000000'. The positive nev? SEED is saved for future use, and 
is also converted to a floating point number for present compuation of a 
random nximber. Multiply the floating point value by to produce a 

random number in the range (0.0, 1.0). 


5-327 




INTERMETRICS INCORPORATED * 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 ■ (617) 661-1840 




RANDOM 


Secondary Entry Name; randG 

Function: Generates random n\iinber from Gaussian distribution, mean 

zero, variance one. 

Invoked by; 

nn Compiler emitted code for HAL/S construct of the form: 

. . . RANDOMG ... 

n other library modules: 


Execution Time (microseconds) ; 575.8 


Input Arguments; 

Type Precision How Passed Units 

None 


Output Results: 
Type 

Scalar 

Errors Detected: 
Error # 


Precision 


How Passed 


Units 


DP 


PO/Fl 


Cause 


Fixup 


Comments : 
Algorithm: 


Same as RANDOM. Registers Unsafe Across Call: P0,F1,P2,P3. 

12 . 

RANDG uses the formula Y = Z X. ^ 6.0, where Xj is a random 

i=l ^ 

number generated by RANDOM. 
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STBYTE 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

STBYTE 

Size of Code Area: 

22 

Hw 

Stack Requirement; 

0 Hw 

Data CSECT Size: 

0 

Hw 

Pn Intrinsic 


n Procedure 



Other Library Modules : 

Referenced: 

None. 




ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


STBYTE 


Function: stores one character into a character string; Used for character 
manipulation by other library routines. 

Invoked by: 

□ Compiler emitted code for HAL/S construct of the form: 


(3 Other Library Modules: CLJSTV, CPAS, CRJSTV, CTRIMV 

19.2 to store in upper byte. 

17.2 to store in lower byte. 

How Passed Units 

R5 

lowsr HW of El aS; byte 

How Passed Units 

R1 ->■ HW to store into - 

Cause Fixup 


Execution Time (microseconds) : 


Input Arguments: 

yype 

Single character 


Precision 


flag (which byte to store into) 

Precision 


Output Results: 
pointer 


Errors Detected; 
Error # 


Comments : 

Registers Unsafe Across Call: R1,R4,R5,F0,F1. 

Algorithm: The flag is tested for an even or odd byte to store into. If 
odd (upper) , the flag is set to indicate even (lower) for the probable loop 
that STBYTE is in. Then, the byte is inserted into the upper byte of the 
appropriate halfword. If the flag indicates an even byte to store into, 
then the byte is inserted into the lower byte of the appropriate halfword. 
The flag is set to 0 to indicate that the next time around in the loop, 
the byte will be odd. The pointer is updated to the next halfword. 
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ENTRY POINT DESCRIPTIONS 

Primary Entry Name; 

Function: Converts bit string to a string of hexadecimal characters - 


Invoked by: 

□ Compiler emitted code for HMj/S construct of the form; 


CHARAGTER„„^^ (.BIT_STRING) 
(sHEX 


□ other Library Modules; 


t ^ ''7 '^ - ■'.B 

PT> t/ : * - • • ' ’■ 


Execution Time (microseconds): 35.9 + 32.2 • (# of digits 0-9) + 

33.9 • (# of letters A-F) , where 

8-({# of digits) + (# of letters) )= # bits. 


Input Arguments ; 

Type 

bit string 
Integer (length of 
bit string) 
Output Results: 

Type 

character string 

Errors Detected: 
Error # 


Precision 


Precision 


How Passed 


How Passed 


R2 descriptor 


Units 


units 


Cause 


Fixup 


Comments; Output string length depends on input string length. The 
maxlength of the output area is ignored. 

Registers Unsafe Across Call; R1,R2,R3,R4,R5,R6,R7,F0,P1. ^ 

Algorithm: A character count is determined as the integer part of (bit 

length + 3)/4. The bit string is positioned in register pair R4-R5 
with the first hexadecimal digit in bits 12-15 of R4 thus: 

1) Clear R4; string right- justified in R5 on input. 

2) Compute greatest multiple of 4 in 52 - bit length, 

3) Use result of 2) as a shift count to shift R4-R5 left double. 

Compute a halfword count for use as a loop counter: 

halfword count = (1 + character count) /2 

The character Count is stored in the descriptor halfword as the current 
length of the output string. Digits; are generated by shifting left 4 
and stored two at a time in the output^ stringr after converting deu format 
by adding X'30' to each digit, Exit when proper number of halfwords have 
been stored, 5-330 
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XTOC 


Secondaory Entry Name; 

Function: Converts a bit string into a string of octal characters. 


Invoked by: 

13 Compiler emitted code for HAL/S construct of the foirm; 

CHARACTER^ __ (BIT_STRING) 

(gOCT 

r~| other library modules: 


Execution Time (microseconds): 46.2 + 32.3 * (# of digits), where 

6 ’ (# of digits) = # bits + 2. 


Input Arguments: 

Type >, 

bit string 
Integer (length of 
bit string) 
Output Results: 

yype 

character string 

Errors Detected: 
Error # 


Precision 

SP 

Precision 

Cause 


How Passed 
R5 

R6 

How Passed 
R2 descriptor 

Fixup 


Units 


Units 


Comments: Output string length depends on input string length, The 

maxlength of the output area is ignored. 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,R7,P0,F1. 

Algorithm; First, a character count is determined as the integer part of 
(bit length + 2)/3. The bit string is positioned in register pair R4-R5 
with the first octal digit in bits 13—15 of R4 as follows: 1) Begin 
with R4 clear and the string right-aligned in R5. 2) Compute the shift 
count as 51-3 (character count) and 3) shift R4-R5 left double by this amount. 

Complete a halfword count for use as a loop counter as ; 

halfword count = (1 + character count) /2 

The character count is stored in the descriptor halfword of the output 
string. Then, digits are generated in a loop, two at a time, by shifting 
R4-R5 left double 3 bits and adding X»30' to give the appropriate PEU 
character. AS pairs of digits are assembled, they are stored into the 
output string, and exit is taken when the proper number of halfwords have 
been stored. 
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5.3.7 REMOTE Routine Descriptions 

This subsection describes those routines which perform 
operations on REMOTE data. REMOTE data is data which may reside 
in a sector of AP-101 core which is neither sector 0 nor the 
current data sector indicated in the Program Status Word at 
the time the routine is called. In order to insure addressability 
of such data, these routines are passed, instead of pointers 
directly to their arguments, pointers to complete address 
constants, or "ZCONS”, containing both the address of the argument 
and the number of the sector in which it resides. These 
complete address constants, together with a special AP-101 
addressing mode, allow access to any area of AP-101 core without 
changing bits in the Program Status Word. 

REMOTE routines are invoked (rather than the normal 
versions of the same routines) when at least one of the arguments 
of the routine has the REMOTE attribute. Since this attribute 
only applies to aggregate data types (VECTOR, MATRIX, STRUCUTRE 
and CHARACTER types) , only these four types of routines have 
REMOTE versions. 
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CASRPV 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

CASRPV 

Size of Code Area: __ 

86 

Hw 

Stack Requirement: 

22 Hw 

Data CSECT Size: 

2 

Hw 

f~) Intrinsic 


{n Procedure 



Other Library Modules 

Referenced : 

None. 




ENTRY POINT DESCRIPTIONS 


CASRPV 

Primary Entry Name: 

Function: Remote character assignment to temporary from partitioned input. 


Invoked by: 

Compiler emitted code for HAL/S construct of the form; 

C2 ' ... Where C2 is a REMOTE character variable and result 

T 'rn J . 

is a temporary string. 

fvl Other Library Modules: 

CPASRP 

Execution Time (microseconds) : (See next page) . 


Input Arguments: 

Type 
integer (I) 
integer (J) 
character (C2) 

Output Results: 

character (temporary) 

Errors Detected; 
Error # 


Precision 

SP 

SP 


Precision 


Cause 


How Passed 
R5 
R6 

R4 ->■ ZCON ->■ descriptor 
How Passed 

R2 ZCON descriptor 


Fixup 


Units 


Units 


P 7 Specified partition outside current Set bad partition pointers (s) 

g-j^ring range. bo the limits of the current 

string. 

Last character indicator less than Return null string, 
first character indicator and 
output string is not null 

Algorithm: 

Set maxlength of result to 255. Test position of 1st character of partition. 

If < 1 then send error and set to 1. 

Compare position of last character of partition. If it is > than maxlength, 
reset to maxlength, and send error- 


(Continued on next page) 
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CASRPV 


CASRPV 

Execution Time (microseconds): 

If P = 0 and length (C2) = 0: 76.8 

If P > 0 and I is odd: 89.0 + 15.8 • ceiling (n/2) 

If P > 0 and I is even: 94.2 + 21.2 • ceiling (n/2) 
where p = J - I + 1 

n = minimum (p# 255) 

Algorithm (Con't) 


Compare first and last positions . If last < fxrst, then if input string 
is null do not send error. If input string is not null, send error and 
set result to null string. Make sure partition length does not exceed 
Se nLSngth of the destination string. If it does, truncate ft. Increment 
character count before dividing by 2 to round resulting halfword count to 
next highest halfword. If position of first character of partition is 
odd, then transfer halfword by halfword. Otherwise, it is necessary to 
line characters up into right halves of halfwords by shifting. 


Comments : 

Registers Unsafe Across Call: None. 


EEPEODUCIBn..rn^ FIIF 
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CASRPV 


Secondary Entry Ncune: CASRP 

Function: 

REMOTE character assignment to declared data, partitioned input. 

Invoked by; 

E3 Compiler emitted code for HAL/S construct of the form: 

Cl = C2 ^ ^ ; where Cl and/or C2 are REMOTE character data . 

I TO J 

□ Other library modules: 

Execution Time (microseconds) ; (see next be3jOw) . 


Input Arguments: 

Type 

integer ' (i) 
integer (J) 

character (C2) 

Precision 

SP— 

SP 


How Passed 
— RS ■ 

R6 

R4 ->■ ZCON descriptor 

Units 

Output Results; 
Type 

Precision 


How Passed 

Units 

character (Cl) 

- 


R2 ^ ZCON descriptor 

■ - 

Errors Detected; 
• Error # 


Cause 

Fixup 



17 Same causes and fix-ups as CASRPV 

Comments : 

Registers Unsafe Across Call: None. 

Algorithm; 

Same as CASRPV except maxlength of resultant string is used as passed and 
not set to 255. 

Execution Time : 

if p = 0 and length (C2) = 0: 69.4 

if p >0 and I is odd: setup + 15.8 • (ceiling (n/2) ) 
if p > 0 and I is even; setup + 5.2 + 21.2 • (ceiling (n/2) ) 
where p=J-I+l 

setup = 81.6 if p _> max length (Cl) 

82.4 if p > max length (Cl) 

n = minimum (p , max length (Cl)) 
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CASRV 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

CASRV 

Size of Code Area; __ 

36 

Hw 

Stack Requirement; 

18 Hw 

Data CSECT Size: 

0 

Hw 

0 Intrinsic 


0 Procedure 



Other Library Modules 

Referenced ; 

None . 





ENTRY POINT DESCRIPTIONS 

Primary Entry Name; CASRV 

Function: Remote character assignment to a temporary receiver. 


Invoked by; ' 

Q Compiler emitted code for HAL/S construct of the form; 

Cl = C2 where Cl or C2 is a REMOTE character string, 

Cl is a temporary. 

f~*l Other Library Modules: 


Units 


Output Results; 
character (temporary) 

Errors Detected: 

Error # Ca use 


Comments: 

Registers Unsafe Across Call: None. 

Algorithm: 

Sets maxiength of result to 255. If the current length of the input string > 
maxlength of result, set current length of result to maxiength. Otherwise, 
Set current length of result to current length of input. Find (f of halfwords 
to move by shifting right 1 # of characters. Move halfword by halfword. 

If there is an odd # of characters, last byte moved is garbage. 
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Precision 


How Passed 

r 2 ->■ ZCON descriptor 


Units 


Execution Time (microseconds) : if n = 0: 59.6 , . 

if n > 0: 60.8+12.6 • (ceiling (n/2) ) 

where n = length(C2). 

Input Arguments: 

Type Precision How Passed 

character (C2) - R4 “>■ ZCON + descriptor 



CASRV 


Secxsndary Entry Name; 

Function: 

Remote character assignment to a non-temporary receiver • 


Invoked by; 

PI Compiler emitted code for HAL/S construct of the form: 

Cl = C2, where Cl and/or C2 is a remote character string. 
□ Other library modules: 


Execution Time (microseconds); if n = 0: 52.6 

if n >0; 51.8 +12.6 • (ceiling (n/2) ) + .8 (if length(C2)> 

maxlength(Cl) ) , where n = minimum (length (C2) , 

maxlength (Cl) ) . 


Input Arguments: 

Tjj£e 

character string 


Precision 


How Passed 

R4 -+ ZCON ^ descriptor 


Units 


Output Results: 

Type 

character string 

Errors Detected: 
Error # 


Precision 


How Passed 

R2 ZCON +- descriptor 


Cause 


Fixup 


Units 


Comments ; 

Registers Unsafe Across Call: None. 

Algorithm: 


Same as CASRV, but do not set maxlength of result to 255. 
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CPASR 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CPASR Size of Code Area: 

Stack Requirement; 24 H w Data CSECT Size: _ 

n Intrinsic Procedure 

Other Library Modules Referenced: None 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name 
Function: 


CPASR 


132 


Remote character assignment to a partitioned receiver. 


Hw 

Hw 




Invoked by: .-l. x: 

{|j Compiler emitted code for HAL/S construct of the form; 

Cl ■ = C2, where Cl or C2 is a remote character string. 

I TO J 

Other Library M.odules ; 

GPASRP 

Execution Time (microseconds) : (gge next page) . 


Input Arguments: 
Type 

integer(I) 

integer(J) 

character (C2) 
Output Results: 
Ty 7;)e 

character(ci) 

Errors Detected; 
Error # 

”l7 


Comments ; 


Precision 

SP 

SP 


Precision 


How Passed Units 

R5 

R6 

R4 ZCON descriptor 

I-Iow Passed Units 

R2 -^ ZCON descriptor 


Cause 

index of first character < 1 

index of last character > max length of 

receiver . 

index of last character < index of first 

character. 

Registers Unsafe Across Call: F0,P1. 


Fixup 
Set to 1 

Set to max length, 
return receiver unchanged 


Algorithm; 

If R5 < 1 then send error and set to 1 

If R6 > max length then send error and set to max lengthy 
If R6 curr len of receiver, then update currlen of receiver 
If r 6 < R5 then send error and exit immediately. Otherwise, move 
partition character by character. 
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r 




CPASR 


CPASR 


Execution Time (microseconds) : 
LHP 

77.9 + KA + KB t E (6.0 + 


+ KD 


+ 


+ 


NCHAR 

Z (8.4 + KE, + KC _ ,) + KF 
k=l ^ 

RHP 


z 

k=l 




+ KG 


where ; 

LOUT = length (Cl) before assignment 
LIN = length (C2) 

KA = 0 if J <= LOUT 

13.0 if J > LOUT 

LPART = J - I + 1 

KB = 15.8 if LPART > 0 and LIN <= LPART 

12.0 if LPART > 0 and LIN > LPART 
0 if LPART =0 

LHP = I-LOUT-1 if I > LOUT +1 
0 otherwise 

KC = 19.8 if X is odd 

20.2 if X is even 

KD = 3.2 if LHP = 0 and I is odd 

4.2 if LHP = 0 and I is even 

1.0 if LHP > 0 and LOUT is odd 

0 if LHP > 0 and LOUT is even 

NCHAR = minimum (LPART, LIN) 

KE = 13.8 if X is odd 
14.4 if X is even 

KF = - . 8 if NCHAR >0 
0 if NCHAR =0 

RHP = LPART-LIN if LPART > LIN 
0 otherwise 

KG = 0 if RHP >0 

.4 if RHP = 0 : . 

Note; If any of LHP, NCHAR, RHP is zero, then that respective summation 
is also zero. 
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CPASRP 


HAL/S-PC LIBRARY ROUTINE DESCRIPTION 


Soxirce Member Name: CPASRP 


Size of Code Area: 


Stack Requirement: 

□ Intrinsic 


146 Hw Data CSECT Size: 


Other Library Modules Referenced: 


0 Procedure 

GPASR, CASRPV 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name; CPASRP 

Function: Remote character string assignment of partitioned input 

to partitioned output. 

Invoked by: 

Q Compiler emitted code for HAL/S construct of the fom; 

Cl, • . = G2, , , Cl, C2 character strings. 

X TO 3 k to 1 • 

n other Lib'cary Modules ; 


Execution Time (microseconds) : 


(See next page) . 


Input Arguments: 
Type 

character (C2) 
integer (k) 
integer (1) 
integer (i 1 I j ) 
output Results: 

character (Cl) 

Errors Detected: 
Error # 


Precision 


(SP| jsp) 
Precision 


How Passed Units 

R4 ZCON descriptor 


How Passed Units 

ZCON -^.descriptor 


Cause 


17 Subscript of character string out of 

bounds. 

Comments : 

Registers Unsafe Across Call: P0,F1. 


Set out-of-bounds value to 
first or last character 
of associated string. 


Algorithm : 

Saves pointer to result in work area, loads address of vac in Rlj and 
branches to CASRPV. Returns, loads result address in Rl, loads arg 3 
and arg 7 in R5 and R6 respectively and branches to CPASR, and returns. 
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CPASRP 


CPASRP 

Execution Time (microseconds) : 


LHP 


132.3 +KA+KB+KG+ E (6.0 + KD ) + KE 


k=l 


OUTLEN+K 


NCHAR 

+ E (8.4 + KF + KD ) + kg 
k=l ^ I+K-1 


RHP 

+ E (6.0 + KD 
k=l 


I+INLEN+k-1 


) + KH 


where: 

INPART = L-K+1 if L >= K 
0 otherwise 

INLEN = minimum (INPART, 255) 

KA = 76.8 if INPART = 0 and length (C2) =0 

89.0 + 15. 8 (ceiling (INLEN(2) ) if inpart > 0 and K is odd 

94.2 + 21.2 (ceiling (INLEN (2) ) if inpart > 0 and K is even 

OUTLEN = length (Cl) before assignment 

KB = 0 if J <= OUTLEN 

13.0 if J > OUTLEN 

OUTPART =J-I+lifJ>=l 
0 otherwise 

KC = 15.8 if OUTPART > 0 and INLEN = OUTPART 

12.0 if OUTPART > 0 and INLEN OUTPART 
0 if OUTPART =0 

LHP = I - OUTLEN - 1 if I > OUTLEN +1 
0 otherwise 

KD^ = 9,8 if X is odd 

20.2 if X is even 

KE != 3,2 if LHP = 0 and I is odd 

4.2 if LHP == 0 and I is even 

1.0 if LHP >0 and OUTLEN is odd 

0 if LHP > 0 and OUTLEN is even 

NCHAR = minimum (OUTPART, INLEN) 

KF^ = 13.8 if X is odd 
14.4 if X is even 

KG = -.8 if NCHAR >0 
0 if NCHAR =0 
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CPASRP 




CPASRP 

Execution Time (Continued) ; 

RHP - OOTPART - INLEN if OUTPART > INLEN 
0 otherwise 

KH = 0 if RHP > 0 
.4 if RHP = 0 


Note: If any of LHP, NCHAR, RHP is zero, then the respective 

suiranation is also zero. 
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CSTR 


HAL/S^PC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; 

CSTR Size of Code Area; 

18 

Hw 

Stack Requirement: 

18 Hw Data CSECT Size; 

0 

Hw 

Q Intrinsic 

O Procedure 





Function: Comparison of REMOTE structures. 


Invoked by; 

Q Compiler emitted code for HAL/S construct of the form; 

IP SI = S2... Where SI, S2, or both is a REMOTE structure occupying n 

halfwords . 

Q other Library Modules : 


Type 

equal/not equal 


Execution Time (microseconds): 22.8 + 14, 8n if structures compare, where j, 

n = # of halfwords in structure, 19.6 + 14. 8n if structures do not ; 

compare, where n = index of first non-matching halfwords in structures. 

Input Arguments: 

Ty^e Precision How Passed Units 

structure (lef t comparand)Sl ~ R2 ZCON first Hw - 

structure(right comparand)g2 - R4 ZCON first Hw - 

integer (n) SP R5 

Output Results; 

Tvoe Precision How Passed Units 


Condition Code 


Errors Detected: 
Error # 


Cause 


Comments : 

Registers Unsafe Across Call; None, 

Algorithm: 

Compares structures, halfword by halfword, until two are found that are 
different or the end of the structure is reached. If inequality is found 
LM, restore R3, and set CC to 1. If equal, then LM, restore R3, and set 
CC to 0 , 


OTEODUCIBILOT 

PAGE IB iv.'ihv 
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MSTR 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Soiarce Member Name: MSTR 


Size of Code Area: 


Stack Requirement: 

□ Intrinsic 


Hw Data CSECT Size: 


m Procedure 


Other Library Modules Referenced : 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: MSTR 

Function: Moves a structure to or from a remote location. 


Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 

SI = S2..., where SI, S2, or both is a REMOTE structure occupying n 

halfwords . 


□ Other Library Modules: 


Execution Time (microseconds): 16,8 + 15. On 


Input Arguments: 

structure (S2) 
integer (n) 


Precision 


How Passed 
R4 ->■ 2C0N -> first Hw 
R5 


Units 


output Results: 
Type 

structure (si) 


Precision 


How Passed 

R2 ZCON first Hw 


Units 


Errors Detected; 
Error # 


Cause 


Comments ; . 

Registers Unsafe Across Call; None. 


Algorithm; Moves structure halfword by halfword. 
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i 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: MRODNP Size of Code Area: ■ 

Stack Requirement: _Hw Data CSECT Size; 

□ Intrinsic 0 Procedure 

Other Library Modules Referenced; — 

ENTRY POINT DESCRIPTIONS 

Primary Entry Name; MRODNP 

Function; Moves a scalar value to all positions of a partition of a double 
precision matrix. 

Invoked by; ^ - 

nn Compiler emitted code for HAL/S construct of the form; 

= X; Where X is a scalar, and M is a double precisxon 
A TO B,C TO D remote matrix. 


0 Procedure 


□ Other Library Modules; 

Execution Time (microseconds): 22.8 + n(5.6 + 9.8m) 


Input Arguments; 

Type 
scalar 
integer (n) 
integer (m) 
integer (outdel) 
Output Results; 


Precisxon 

DP 


Precision 


matrix (n,m) 


How Passed 
FO 
R5 
R6 
R7 

How Passed 

R2 ZCON Qth element 


Units 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments : , , 

Registers Unsafe Across Call: FO,Fi. 

Algorithm: 

Same as MROSNP except use 4 • (# columns) as row length in halfwords, and 
use double precision store. 
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f 



MROSNP 


Source Member Name: 
Stack Requirement: 


MROSNP 


20 


Hw 


ROUTINE DESCRIPTION 



Size of Code 2Urea; 


16 

Data CSECT Size: 

0 



Q Intrinsic 

Other Library Modules Referenced: 


0 Procedure 
None, 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name; MROSNP 


Hw 
Hw . 


tmmmmm * 


Function: Moves a scalar value to all positions of a partition of a REMOTE 

single precision matrix. 

Invoked by; ^ ^ " 

a Compiler emitted code for HAL/S construct of the form; 

M = X; where X is a scalar, and M is a REMOTE sxngle 

A TO B,C TO D 

precxsxon matrxx. 

I I Other Library Modules: 




Execution Time (microseconds): 22,8 + n(5.6 + 8.6m) for an n x m partition. 


Input Arguments: 
Type 
scalar 
integer (n) 
integer (m) 
xnteger (outdel) 

Output Results: 
matrix (n,m) 


Precision 

SP 

SP 

SP 

DP 


Precision 


SP 


How Passed 
PO 
R5 
R6 
R7 

How Passed 

R2 -V ZCON oth element 


Units 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 


Comments ; 


Registers Unsafe Across Gall: F0,F1. 


Algorithm; Find row length in halfwords by SLL # columns, 1 add row length 
to outdel 

Loop: Indexing on # rows, using BCTB 

Loop: Indexing on # columns, using BCTB 

Store scalar in pointed to output element 

End. 

Add outdel (with row size) to output pointer 
End. . 
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Primary Entry Name: MRlDNP 


Function i Moves a partition of a double precision matrix to a partition 
of a double precision matrix. At least one of the matrices has the REMOTE 
attribute . 

Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 


ru. ; 

A TO B,C TO D 
Ml, __ _ _ __ _ = M2; 

f~| Other L Bar ary Modules: 


where Ml and M2 are double precision matrices, 
and at least one of Ml and M2 is REMOTE. 


Execution Time (microseconds): 28.4 + n{8.2 + 15.0m) for nxm partition. 


Input Arguments; 

matnx(n,m) 

Precision 

How Passed 


Units 

DP 

R4 ZCON Qth 

element 

- 

integer (rows) 

SP 

R5 


- 

integer (columns) 

SP 

R6 


- 

integer (indel,outdel) 

DP 

R7 



Output Results : 

Type 

Precision 

How Passed 


Units 

matrix (n ,m) 

DP 

R2 ZCON 

element 

- 

Errors Detected: 

Error # 


Cause 

Fixup 



Comments : 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Same as MRlSNP, except use double precision loads and stores and use 
4 • (# columns) as row length. 


■n?p- 
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MRISNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: MRISNP 


Size of Code Area: 


Stack Requirement; 


22 Hw Data CSECT Size; 


Q Intrinsic 


Procedure 


Other Library Modules Referenced; 


ENTRY POINT DESCRIPTIONS 

„ ^ XT MRISNP 

Prxmary Entry Name: 

Function: Moves a partition of a single precision matrix to a partition 

of a signle precision matrix. Either or both matrices have the REMOTE 
attribute. 

Invoked by ; 

Compiler emitted code for HAL/S construct of the form; 
wi = M2 ; where Ml and M2 are single precision matrices, 


A TO B,C TO D' 

Ml = M2 ; 

A TO B,C TO D, , 

I 1 Other Library Modules: 


and at least one of Ml, M2 is REMOTE, 


Execution Time (microseconds): 28.4 + n{8.2 + 12.6m) for nxm partition. 


input Argijments; 


matrxx(n,m) 
integer 
integer (m) 
integer (indel , outdel) 
Output Results; 

Type 

matrix (n,m) 


Precision 

SP 

SP 

SP 

(spj |sp) 

Precision 

SP 


How Passed 

R4 ZCON 0'^^ element 
R5 
R6 
R7 

How Passe d 

R2 -> ZCON O^h element 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments : 

Registers Unsafe Across Call; F0,P1. 


REPEODttciBmiTy or ru.:: 
ORIGINAL PAGH IS ) 


Algorithm: Separate indel and outdel into separate registers. Find row size, 

in halfwords, of result matrix by shifting left 1, # columns 
Add rowsize to indel 
Add rowsize to outdel 

Loop; Indexing on # of rows of output, aud using BCTB 
Loop; Indexing on # of columns of input, using BCTB 

load (single precis ion) pointed to input element 
store (single precision) pointed to output element 

End. -- 

Add indel (with row size added) to input pointer 
Add outdel (with row size added) to output pointer 

End. 
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MRITNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; mrItnp 

Size of Code Area; 

24 

Hw 

Stack Requirement; 22 

Hw Data CSECT Size: 

0 

Hw 

n Intrinsic 

0 Procedure 




Other Librai'y Modules Referenced; None . 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; 


MRITNP 


Function; Moves a partition of a double precision matrix to a partition 
of a sing'le precision matrix. A t least one of the matrices has the REMOTE 
attribute. 

Invoked by; ^ 

nn Compiler emitted code for HAL/S construct of the form; 

Ml = TO B C TO d' "here Ml is a single precision matrix, M2 is a 
Ml ' = M2; double precision matrix, and at least one of 

□ Other Ti^rfiy Modules; "^2 is REMOTE. 


Execution Time (microseconds) ; 3^ 3 + n(7 6 +13 8m) 


for nxm partition. 


Input Arguments; 

Type 

matrix(n,m) 

integer (rows) 
integer (columns) 
integer ( indel , outdel) 

Output Results; 

Tyge 

matrix (n,m) 


Errors Detected; 
Error # 


Precision 
DP 
SP 

(spf|sp) 

Precision 

SP R2 


Cause 


How Passed 

ZCON ■+ O't^h' element 
R5 
R6 
R7 


How Passed 

ZCON 0"*-^ element 


Fixup 


Units 


Units 


Comments ; 

Registers Unsafe Across Call; F0,F1. 

Algorithm; 

Same as MRISNP, except use double precision load for index alignment, and 
use 4 • (# columns) as the length in halfwords of double precision partition- 
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Source Member Name: MRIWNP 

Stack Requirement; ^2 



MRIWNP 


ROUTINE DESCRIPTION 



Size of Code Area; 

24 

Hw 

Data CSECT Size; 

0 

Hw 


□ Intrinsic 

Other Library Modules Referenced; 


E) Procedure 

None. 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name; MRIWNP 


Function: Moves a partition of a single precision matrix to a partition 

of a douj^le precision matrix* Either or both matrices have REMOTE attribute. 

Invoked by; 

Px] Compiler emitted code for HAL/S construct of the foirm; 

- - where Ml is a doiible precision matrix, and 

M2 is a single precision matrix, and 
at least one of Ml or M2 is REMOTE. 


Ml = M2 


'a TO b, c TO d' 

Ml . , = M2; 

a TO b,c TO d^ , 
j I Other Library Modules; 




1*^ 


Execution Time (microseconds): 32.8 + n(8.2 + 13.8m) for nxm partition. 

Units 


Units 


Errors Detected: 

Error # Cause Fixup 

Comments ; 

Registers Unsafe Across Ce''l: F0,F1. 

Algorithm; 

Same as for MRISNP, except use double precision stores after zeroing 
the low half of the floating point register. 


Input Argmnents; 

Type 

matrix 

integer (rows) 
integer (columns) 
integer (indel ,outdel) 

Output Results : 
matrix 


Precision 

SP 

SP 

SP 

(SP,SP) 

Precision 


R4 ZCON 


How Pass ed 
OflT 


element 


R5 

R6 

R7 


How Passed 

R'2 -t ZCON -t 0'’^^ element 
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VRODN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: VRODN 

Stack Requirement: 


Size of Code Area: 
Hw Data CSECT Size: _ 


n Intrinsic 

Other Library Modules Referenced: 


0 Procedure 


None. 


ENTRY POINT DESCRIPTIONS 
Primary Entry Name: 


VRODN 


Function: Moves a scalar to all elements of a double precision 

vector with the REMOTE attribute. 

Invoked by: 

nn Compiler emitted code for HAL/S construct of the form; 

V = X; X a scalar, V a REMOTE double precision vector. 

n other Library Modules: 

Execution Time (microseconds): 16.4 + 9.2n, n = size of vector. 


Input Arguments: 
Type 
scalar 
integer (n) 


Precision 

DP 

SP 


How Passed 
FO 
R5 


Units 


Output Results: 
Type 

vector (n) 


Precision 

DP 


How Passed 

R2 ZCON 0^^ element 


Units 


Errors Detected: 
Error # 


Cause 


Comments : 


Algorithm : 


Registers Unsafe Across Call: F0,F1. 


Same as VROSN, except use double precision store. 
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VRODNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VRODNP Size of Code Area: 

Stack Requirement: 18 Hw Data CSECT Size: 

r) Intrinsic 0 Procedure 

Other Library Modules Referenced: None. 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: VRODNP 


Function; Moves a scalar to all elements of a column of a double 
precision matrix. 

Invoked by; 

nn Compiler emitted code for HAL/S construct of the form; 

N. ■ = X; X a scalar, M a double precision REMOTE matrix. 

□ Other Library Modules: 

Execution Time (microseconds): 21.2 + 10. On, ^ length of vector result. 


Input Arguments; 

scalar 
integer (n) 
integer (outdel) 
Output Results; 
Tyge 

vector (n) 


Precision 

DP 

SP 

SP 


How Passed 
FO 
R5 
R7 


Precision 

DP 


How Passed 

R2 ZCON ->■ 0^^ element 


Units' 


Unites 


Errors Detected: 
Bjxor # 


Cause 


Fixup 


Comments : 

Registers Unsafe Across Call; F0,F1. 

Algorithm: Same as VROSNP, except use double precision stores 


OlLlinNAL 



5-352 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 - (617) 861-1840 


■^RnSN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VROSN Size of Code Area: 6 

Stack Requirement: 18 Hw Data CSECT Size: 

□ Intrinsic o Procedure 

Other Library Modules Referenced: None . 


Hw 

Hw 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


VROSN 


Function: Moves a scalar to all elements of a single precision vector with 
the REMOTE attribute. 

Invoked by; , 

0 Compiler emitted code for HAL/S construct of the form; 

V — X; X is a scalar, V a REMOTE single precision vector. 

□ Other Library Modules: 

Execution Time (microseconds); 16.4 + n • 8.0, n = size of vector. 


Input Arguments: 

ST.g. 

scalar 

integer (n) 
Output Results: 

vector (n) 

Errors Detected: 
Error # 


Precision 

SP 

SP 


Precision 

SP 


How Passed Units 

FO ’ 

R5 - 


How Passed Units 

R2 ZCON 0^^ element - 


Cause 


Fixup 


Comments : 


Registers Unsafe Across Call: P0,F1. 


Algorithm: . 

Store elements in reverse order using the input length both as an index 
and to control the loop . , " 


• 
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VROSNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: VROSNP Size of Code Area: 

Stack Requirement; H w Data CSECT Size: 

□ Procedure 
none. 


10 


□ Intrinsic 

Other Library Modules Referenced: 


‘UvxnitzQastsaa 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name; 


VROSNP 


Function: Moves a scalar to all elements of a column of a single 

precision matrix. 

Invoked by: 

Q Compiler emitted code for HAL/S construct of the form: 

— X? X s scalar, M a single precision REMOTE matrix. 


□ Other Library Modules: 


Hw 

hv 


Execution Time (microseconds): 21.2 + 8.8n, = length of vector result. 


Input Arguments; 


Precision 

Scalar 

SP 

integer (n) 

SP 

integer (outdel) 

SP 

Output Results; 


Precision 

vector (n) 

SP 

Errors Detected: 
Error # 


How Passed 

FO 

R5 

R7 

How Passed 

R2 ZCON ->■ O^h element 


Cause Fixup 


Units 


Units 


Comments : 

Registers Unsafe Across Call: F0,F1. 

Algori'thm: 

Store elements one at a time, adding outdel to the pointer after each store. 
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Function; Moves a double precision vector to a double precision vector, where 
at least one of the vectors has the REMOTE attribute. 


Invoked by: ^ ^ 

nn Compiler emitted code for HAL/S construct of the form; 

V2 = VI; where VI or V2 has been declared a REMOTE vector, 
and VI, V2 are both double precision. 

j~~] Other Library Modules; 


Execution Time (microseconds); 16.4 + n • 15.0, n length of vector 


Precision 


How Passed 

R4_ ->■ ZCON -t O^b element 
R5 


Precision 


How Passed 

R1 ZCON -> 0^^ element 


Errors Detected: 
Error # 


Cause 



i 


Comments; 

Registers Unsafe Across Call; F0,Fl. 

Algorithm: 

Same as VRISN, except use double precision loads and stores. 
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VRIDNP 


HAL/S-FG LIBRARY ROUTINE DESCRIPTION 


Source Member Name; VRlDNP 


Size of Code Area* 


Stack Requirement: 


18 Hw Data CSECT Size: 


Q Intrinsic 


0 Procedure 


Other Library Modules Referenced: 


None. 


ENTRY POINT DESCRIPTIONS 

Primary Entry Name; VRIDNP 

Function; Moves a double precision vector to a double precision vector when 
elements of source or receiver are not contiguous, and at least one has the 

REMOTE attribute. 

Invoked by ; 

Compiler emitted code for HAL/S construct of the form; 

V = j,- • where V is declared doiable precision vector, M is double precision 

M =V; matrix, and V or M is REMOTE. 

( I Other Library Modules: 


Execution Time (microseconds); 17, On + 29.6 if neither input nor output is 

contiguous. 17. On + 30.4 if either input or output is contiguous, 

, ^ where n = length of vector. 

Input Arguments: „ - 4 . 

Type Precision How Passed ^ 

vector (n) DP R4 ZCON 0^^ element - 

integer (n) SP ^5 

integer (indel) SP R6 - 

integer (outdel) SP R7 

Output Results ; 

vector (n) 


Precision 


Precision 


How P^-coed 

R2 ^ ZCON O'^l^ element 


Units 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments ; 


Registers Unsafe Across Call; F0,F1. 


Algorithm: 

Same as VRISNP, except if indel or outdel =0, sets to 4, and does 
double precision loads and stores . 
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VRISM 




HAL/S-FG LIBRARY ROUTINE DESCRIPTION 


Soinrce Member Name; VRISN 

Size of Code Area; 

8 

Hw 

Stack Reauirement: 18 Hw 

Data CSECT Size: 

0 

Hw . 

Q Intrinsic 

Q ^Procedure 



Other Library Modules Referenced; 

None . 




ENTRY POINT DESCRIPTIONS 




Priraarv Entry Name; VRISN 




Function; Moves a single precision vector to a single 

precision 

vector. 


where at least one of the vectors has the REMOTE attribute. 

Invoked by; 

H3 Compiler emitted code for HAL/S construct of the form; 

VI 5= V2; where VI or V2 or both are remote and VI and V2 are 
single precision. 

n other Library Modules; 


Execution Time (microseconds): 16.4 + 12.6n, n - length of vector. 


Input Arguments; 

Type, 

vector(n) 
integer (n) 

Output Results; 
Type 

vector(n) 

Errors Detected; 
Error # 


Precision How Passed 

SP R4-> zcON O^h element 

SP R5 


Precision 

SP 


How Passed 

R2->- ZCON 0^^ element 


Cause 


Fixup 


Units 


Units 


Comments ; 

Registers Unsafe Across Call: F0,F1. 

Algorithm; 

Loops n times, using length both as index and to control the loop. Load, 
then store, each element in turn. 


Tilii 
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VRISNP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name; VRISNP 

size of Code Area: 

20 

Hw 

Stack Requirement; 18 Hw 

Data CSECT Size: 

0 

Hw 

n Intrinsic 

rn Procedure 



Other Library Modules Referenced; 

None . 




ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


VRISNP 


Function: Moves a single precision vector to a single precision vector when 

elements of source or receiver are not contiguous and at least one has the 
REMOTE attribute. 

Invoked by : 

Pxi Compiler emitted code for HAL/S construct of the form; 

^ ~ ^*,J' where V is declared single precision vector, M is a 

j = V; single precision matrix, and V or M has the REMOTE 

{ I Other Library Modules^^~^^^^^^^ • 


Execution Time (microseconds); 14. 6n + 30.4 if either input or output is 

contiguous. 14. 6n + 29.6 if neither input nor output is contiguous, 
where n = length of vector. 

Input Arguments; 

Precision How Passed Units 

R4 


Type 

vector (n) 
integer 
integer ( indel) 
integer ( outdel ) 
Output Results: 

vector 


SP 

SP 

SP 

SP 

Precision 

SP 


V- ZCON 0 "*^^ element 
R5 
R6 
R7 

How Passed 


Units 


R2 ZCON 0^^ element 


Errors Detected: 
Error # 


Cause 


Fixup 


Conunents ; 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

If outdel = 0, Sets it to 2. 

If indel = 0, sets it to 2. 

Loops 'length ' times r moving one element each loop. Adds indel to input 
pointer and outdel to output pointer after each move. 
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VRITN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: VRITN 

Stack Requirement: Hw 

Q Intrinsic 

Other Library ModiiLes Referenced: 
ENTRY POINT DESCRIPTIONS 


Size of Code Area: 

8 

Hw 

Data CSECT Size; 

0 

Hw 

Q Procedure 




None. 


Primary Entry Name; vritn 

Function; Moves a double precision vector to a single precision vector, 
where at least one of the vectors has the REMOTE attribute. 


Invoked by; 

H3 Compiler emitted code for HAL/S eonstruet of the form; 

VI = V2; Where VI is a single precision vector, V2 is a double precision 
vector , and at least one of VI and V2 is REMOTE . 

n other Library Modules; 


Execution Time (microseconds); 16.4 + 13. 8n, n = length of vector. 


Input Arguments: 

Zy£g. 

vector (n) 
integer (n) 


Precision 

DP 

SP 


How Passed 

R4 *> ZCON O^h element 
R5 


Units 


Output Results ; 
T^^e 
vector 

Errors Detected; 
Error # 


Precision 

SP 


How Passed 


Units 


R2 ZCON 


■ith 


Cause 


element 


Fixup 


Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Same as VRISN , except use double precision loads 


^ . .. . w. 

k 
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VRITNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: VRITNP Size of Code Area: 

Sbaek Requirement; 18 H w Data CSECT Size; 

d Intrinsic El Procedure 


20 


Hw 

Hw 


Other Library Modules Referenced; 


None . 


ENTRY POINT DESCRIPTIONS 


Primary Entry Name: 


VRITNP 


Function; Moves a double precision vector to a single precision vector, 
v/hen elements of source or receiver are not contiguous, and at least one 
of them has the REMOTE attribute. 

Invoked by; ' 

nn Conypiler emitted code for HAL/S construct of the form; 


V M 


where V is a single precision vector, M is a double precision 
matrix, and V or M is REMOTE. 


Other Library Modules: 


Execution Time (microseconds): 15. 8n + 30.4 if either input or output is contiguous 

15, 8n + 29.6 if neither input nor Output is contiguous, where 
n = length of vector. 


Input Arguments: 

Type 

Precision 

How Passed 

Units 

vector (n) 

DP 

R4 ZCON Ohh element 


integer Cn) , _ 
xnueaer (xndel) 

SP 

R5 


SP 

R6 

“ 

integer (outdel) 

SP 

R7 


Output Results: 


Precision 

How Passed 

Units 

vector 

SP 

R2 ZCON V- 6^*^ element 


Errors Detected: 

Error # 


Cause Fixup 



Comments : 

Hcgisters Unsafe Across Call: FO, FI. 

Algorithm; 

Same as VRISNP except if indel = 0, sets it to 4, and does double 
precision loads. 
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VRIWN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Ncune: VRIWN 

Size of Code Area: 


10 

Hw 

Stack Requirement: 18 Hw 

Data CSECT Size: 

0 


Hw 

Q Intrinsic 

Other Library Modules Referenced: 

P Procedure 
None. 





ENTRY POINT DESCRIPTIONS 
Primary Entry Name: VRIWN 


Flection; Moves a single precision vector to a double precision vector, 
where at. least one of the vectors has the REMOTE attribute. 

Invoked by: 

0 Compiler emitted code for HAL/S construct of the form; 

VI = V2; VI or V2 remote, VI double precision, and V2 single precision. 


n other Library Modules; 

Execution Time (microseconds): 20.6 + 13.8n, n = length of.. vector 


Input Arguments; 
Type 
vector (n) 
integer (n) 


Precision 

SP 

SP 


How Passed 

R4 ZCON 0”th element 
R5 


Units 


Output Results: 
Type 

vector(n) 

Errors Detected: 
Error # 


Precision 

DP 


How Passed 

R2 ZCON 0^^ element 


Units 


Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call; F0,P1. 

Algorithm: 

Same as VRlSN, except use double precision store with low half of floatina 
register zeroed. ^ 

■ RH-BOOTCmir? TH’^; 
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VRIWNP 


HAL/S-FC LIBRARY 

Sovirce Member Name: VRIWNP 

Stadc Requirement: 18 H w 

Q Intrinsic 

Other Library Modules Referenced: 




ENTRY POINT DESCRIPTIONS 


ROUTINE DESCRIPTION 
Size of Code Area: 
Data CSECT Size: __ 
□ Procedure 
None. 


Primary Entry Name: 


VRIWNP 


_22 Hw 

0 Hw 


Function: Moves a single precision vector to a double precision vector, when 

elements of soiirce or receiver are not contiguous , and at least one of 
them has the REMOTE attribute. 

Invoked by; - 

Compiler emitted code for HAL/S construct of the form; 

_ ■ where V is a double precision vector, M is a single precision matrix, 

^ and V or M is REMOTE. 

[~1 Other Library Modules: 


Execution Time (microseconds): 15.8n + 31.2 if either input or output is contiguous 

15.8n + 32.0 if neither input nor output is contiguous. 


Input Arguments; 
Type 

Wl l li HWM IJ 

vector (n) 
integer (n) 
integer (indel) 
integer (outdel) 

Output Results; 
Type 

vector (n) 


Precision 

SP 

SP 

SP 

SP 

Precision 

DP 


How passed 

R4 ->- ZCON ->■ 0 th element 
R5 
R6 
R7 

How Passed 

R2 ZCON ->• 0^1^ element 


Units 


Units 


Errors Detected; 
Error # 


Cause 


Fixup 


Comments ; 

Registers Unsafe Across Call: F0,F1. 

Algoritlinx; 

Same as VRlSNP, except if outdel = 0, sets it to 4, and uses double 
precision stores, after clearing the low half of the floating point register. 
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6 . 0 SYSTEM INTERFACES 


This section deals with characteristics and behavior 
of the HAL/S-FC compiler as related to the environment in 
which the compiler operates. Specifically, these items are 
in relation to the host computer in which the compiler is 
executed. 


6 . 1 Internal System Interfaces 

The HAL/S-FC compiler is designed to operate under OS/3 60 
MVT or an equivalent operating system (such as OS/VS2 on IBM 
370 equipment.) The compiler was developed under Release 21.6 
of OS and uses many of the features of that system. 


6.1.1 Macro Instructions 

All operating system communication is performed via 
standard assembler language macro instructions as provided 
with OS MVT. The following list contains the names of all 
macros executed directly by the HAL/S-FC compiler. 


ALEND 

BLDL 

CHECK 

CLOSE 

DCB 

DCBD 

DELETE 

FIND 

FREEMAIN 

FREEPOOL 

GET 

GETBUF 

GETMAIN 

LOAD 

NOTE 

OPEN 

POINT 

PUT 

READ 

RETURN 

SAVE 

TTXMER 

SPIE 

WRITE 

STIMER 

STOW 

TIME 


The forms of some of these macros require further 
explanation; 

FREEMAIN - All FREEMAIN macros use the SP parameter 
to indicate subpool 22. Both freeing of 
single elements of storage and freeing of 
an entire subpool are performed . 

GETMAIN - All requests for main storage are made 

with the SP operand specifying subpool 22. 
GETMAINs are done for both single elements 
of storage of specific size and once, during 
compiler initialization, for a variable 
region using the VC form of GETMAIN. This 
initialization GETMAIN obtains the largest 
contiguous element of memory available in 
the job step region. This memory (assigned 
to Subpool 22) is used to hold executable 
compiler code and as a data area for the compiler 


6-1 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 


I 



STIMER - The STIMER macro with the TASK option is 

used to start an accounting of CPU time used 
by the compiler. 

TTIMER - The TTIMER macro is used to test the TASK 
interval timer as started by the STIMER 
macro to determine elapsed CPU time at 
various points in a compilation. 

6.1.2 Dynamic Invocation of the Compiler 

The HAL/S-FC compiler may be dynamically invoked by 
another processing program. The details of this interface 
are controlled by the HAL/SDL Interface Control Document. 

The dynamic invocation capability allows : 

• specification of a parameter string to be acted 
upon by the compiler, 

• specification of an alternate DDNAME list for those 
DD cards referenced by the compiler, and 

• specification of communication areas in which the 
compiler will supply information to the invoking 
program. 

The compiler takes the following actions to restore its 
environment upon return to the program which performed the 
invocation. 

• All DCB's opened by the compiler are closed and 
any automatically acquired buffers are FREEPOOLed. 

• All GETMAINed storage is FREEMAINed. 

• The SPIE exit (if any) is restored to its status 
upon entering the compiler . 


6.1.3 OS/360 Access Methods 

In performing input/output processing the HAL/S-FC 
compiler uses the OS Data Management Access Methods ; 

BSAM QSAM BP AM 

No other access methods are used, and all datasets manipulated 
by the compiler are standard OS/3 60 datasets. 
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6-2 User or External System Interfaces 


The majority of ways in which users of the HAL/S-FC compiler 
interact with the compiler are described in Sections 2 through 5 
of this document. However, the primary vehicle for user communi- 
cation with this system is Job Control Language which is a 
of the compiler's interface to the system in which it 
operates . This subsection describes the two areas of external 
or user interfaces to the system; 

1) user-defined options acted upon by the compiler, and 

2) the JCL with which the user defines the compiler's data 
and hence the environment in which the compiler is 

to operate. 


6.2.1 User-defined Options 

The HAL/S-FC compiler has a number of optional features 
which may be exercised by the user. These options are indicated 
via keyword parameters passed to the compiler in the standard 
OS/360 method. The options are either passed to the compiler 
during dynamic invocation as described in the HAL/SDL ICD, or 
are passed via the FARM field on the EXEC card in the JCL 
invoking the compiler. A list of these options and their 
effects may be found in Appendix A. 


6.2.2 Job Control Language Specification 

JCL is the means by which any user of the compiler defines 
the set of data upon which the compiler is to operate. This JCL 
is therefore the first interface of the user and the compiler. 

Once this set of data is specified, all other interfaces with the 
user are through this data in the manner described in preceedinq 
chapters. The remainder of this subsection consists of two 
parts; 1) a listing of some typical JCL for compiler invocation; 
and 2) a chart describing the uses, presumed attributes, and access 
methods for all DD cards . 
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//HALFC 

//HAL 

// 

//STEPLIB 

//PROGRAM 

//SYSPRINT 

//LISTING2 

//OUTPUTS 

// 

// 

//0UTPUT4 

//OUTPUT5 

// 

//OUTPUTS 

// 

//OUTPUT? 

//ERROR 

//FILE1 

//FILE2 

//FILES 

//FILES 

//FILES 


i INTERMETRICS 


PROG OPTION= 

EXEC PGM=MONITOR ,REGI0N=S50K,TIME=1 , 

PARM= '&OPTION ' 

DD DISP=SHR,DSN=HALS1 01 .MONITOR 
DD DISP=SHR,DSN=HALS101 .COMPILER 
DD SySOUT=A,DCB=(RECFM=FBA,LRECL= 1S3 ,BLKSIZE=3458) 

DD SYS0UT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=34S8) 

DD UNIT=SYSDA,DISP= (MOD, PASS) , SPACE= ( CYL , ( 1 , 1 ) ) , 

DCB= ( RECFM=FB ,LRECL=80 ,BLKSIZE=400) , 

DSN=&&HALOBJ 

DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400) 

DD DISP=(MOD,PASS) ,DSN=&&HALSDF,SPACE=(TRK,(2,2,1)). 

DCB=(RECFM=F ,LRECL= 1 S80 ,BLKSIZE= 1 680) , UNIT=SYSDA 
DD DISPr ( MOD , PASS ) , DSN = &&TEMPLIB , SPACE= ( TRK , ( 2 , 2 , 1 ) ) , 
DCB=(RECFM=FB,LRECL=80 ,BLKSIZE= 1 680) , UNIT=SYSDA 
DD DUMMY , DCB= ( RECFM=FBM ,LRECL= 1 S3 ,BLKSIZE= 1 S3 ) 

DD DISP = SHR,DSN = HALS10KERR0RLIB 
DD UNIT=SYSDA,SPACE=(CYL,S) 

DD UNIT=SYSDA,SPACE=(CYL,3) 

DD UNIT=SYSDA,SPACE=(CYL,3) 

DD UNIT=SYSDA,SPACE=(CYL,3) 

DD UNIT=SYSDA,SPACE=(CYL,3) 


00010000 
00020000 
00030000 
00040000 
00050000 
00060000 
00070000 
00080000 
00090000 
00100000 
001 10000 
00120000 
00130000 
00140000 
00150000 
00160000 
00170000 
00180000 
00190000 
00200000 
00210000 
00220000 





Typical JCL for Compiler Invocation 
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Compiler DDNAMES f Uses 


DDNAME i FUNCTION |DEVICE REQUIREMENTS 


executable 
compiler phases 

‘ direct access 
magnetic tape 

Primary listing 

* printer 

intermediate storage 

Secondary unformat- 
ted listing 

* printer 

intermediate storage 

object module output 

• direct access 

• magnetic tape 

• card punch 

duplicate object 
module output 

direct access 
magnetic tape 
card punch 

Simulation data file 
output 

direct access 

Template search and 
creation 

direct access 

pseudo-assembly 
listing for link- 
edit ABSLIST functicr 

direct access 
magnetic tape 

Compiler error 
message retrieval 

■ direct access 


PILEl HALMAT work file ‘ direct access 


LRECL 

7200 

133 


133 


80 


80 



133 

80 

7200 


and Requirements 


RECFM 

BLKSIZE 

BUFNO^ 

DSORG 

ACCESS METHOD, 
MACRF 

F 

7200 

0 

' 

PS 

BSAM, R 

FBA 

3458^ 

1 

PS 

QSAM, PL 

. 

FBA 

3458^ 

1 

PS 

QSAM, PL S'S 

FB 

400^ 

1 

PS 

QSAM, PL ^ Q 

o § 

FB 

400^ 

1 

PS 

QSAM, PL ...■ ^ 

y 

-. 4 

. 

F 

leso'^ 

0 

PO 

BP AM, W 

FB 

, 1680^ 

■ 

1 

PO 

BPAM, WR 

FBM 

3458^ 

1 

PS 

BSAM, PL 

FB 

400 

1 

PO 

BPAM, R 

F 

7200 

0 

PS 

BSAM, RWP 

X 










































































Compiler DDNAME3 , Uses, and Requirements . (Con' t) 


DDNAI4E 

FUNCTION 

DEVICE REQUIREMENTS 

LRECL 

RECFM 

BLKSIZE 

BUFNO^ 

DSORG 

ACCESS METHOD, 
MACRP 

F1LE2 

Literal communicatian 
area 

i 

i 

direct access 

1 

1S60 

F 

j 

1560 1 

j 

0 

PS 

BSAM, RWP 

FILE3 

Phase I Init/Const 

work area 
Phase II code gen. 
work area 

direct access 

1600 

F 

1600 

0 

PS 

BSAM, RWP 

FILES 

Phase III paging area 

• direct access 

1680 

F 

— — j 

1680 

0 

PS 

BSAM, RWP 

FILE6 

Statement data 
communication area 

direct access 

512 

F 

512 

0 

PS 

BSAM, I^WP 

SYSIN 

Primary source 
input 

card reader 
intermediate storage 

80 <= 
LRECL < 
132 

FB 

legal mul- 
tiple of 
LRECL^ 

1 

PS 

QSAM, GL 

INCLUDE 

Secondary source 
input 

direct access 

80 <= 
LRECL <= 
132 

FB 

legal mul- 
tiple of 
LRECL^ 

1 

PO 

BP AM, R 

ACCESS 

ACCESS Rights 
control 

direct access 

CO 

o 

FB 

1680^ 

1 

PO 

BP AM, R 


Notes : 

1. BLKSIZE value may be altered by user to any installation-legal value. 

2. Compiler will use LRECL and BLKSIZE supplied by user. 

3 . BUENO may be specified by user for any PS type datasets. 

4. Defaults are shown; Records are always written as 1680 blocks but user-supplied attributes 
will be retained. 












































Appendix A 

Compile-Time JCL Options 


This Appendix describes the compiler options which 
may be coded in the FARM field of the EXEC card in the 
Job Control Language invoking the compiler. In al] cases 
options are separated in the FARM field by commas’ If 
an option is referenced more than once in a FARM field, 
the last reference (scanning left to right) will be used 
to determine the option's setting. 

There are two general classes of options recognized 
£ „ • ^yp© 1 options having a binary value 

of on or off", and Type 2 options having a numeric or 
string value. 


Type 1 Options 


Type 1 options are controlled by keywords in the FARM 
field. The appearance of the keyword indicates that the 
option is to be ”on" during the compilation unless the 
keyword IS proceeded by the characters "NO" in which case 
the option is_"off".^ Some Type 1 options have alternate, 
shorter spellings which may be used interchangably with 
the standard keywords. 


When a Type 1 option has an alternate form, the 
negative or "off" value (equivalent to adding 'NO' to 
the standard keyword) is specified by preceeding the 
alternate form with the character 'N' . The 'NO' and 'N' 
notations may only be used with the standard and alternate 
forms respectively. For example, the LIST option has the 
alternate form L. If the negative is to be specified, it may 
be done as NOLIST or NL; NLIST or NOL will not be recognized! 

The following Type 1 options are recognized. The 
settings shown are used in the absence overriding 
FARM field specifications. 
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Keyword 

Alternate 

Default 

Function 

LISTING2 

L2 

off 

Causes unformatted source 
listing to be generated. 

DUMP 

DP 

off 

Requests the compiler to 
produce a memory dump if 
certain internal compiler 
errors occur. 

LIST 

L 

off 

Produces an assembly listing 
from Phase II of the compiler. 

TRACE 

TR 

on 

Causes the generation of a 
link to the HSS end-of- 
statement routine in the 
object module. Enables Real 
Time execution and debugging. 

DECK 

D 

off 

Controls production of an 
additional object deck on 
the OUTPUT4 DD card. 

TABLST 

TL 

off 

Causes Phase III of the 
compiler to produce formatted 
dump of the simulation data 
file (SDF) . 

SRN 

none 

off 

Causes the compiler to omit 
the last eight columns or 
characters from the source 
Scanning. These columns 
are then used to print infor- 
. mation on the listing. 

TABLES 

TBL 

on 

Controls generation of Simu- 
lation Data Files. 

ADDRS 

A 

off 

Indicates the presence of 
statement address informa- 
tion in the Simulation Delta 
Piles . . 

ZCON 

Z 

on 

Indicates external linkage 
conventions to be used (via 
Z_CONs or direct) * 

TABDMP 

TBD 

off 

Causes Phase III of the compiler 


to produce a hexadecimal dump 
of the simulation data file. 
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Keyword 

SDL 


FCDATA 


ZCON 


SCAL 


MICROCODE 


SREF 


Alternate Default 
none off 


FD off 


Z on 


SC 


on 


MC 


on 


SR off 


reproducibility of the 

ORIGINAL PAGE It 


Function 

Infornis the compiler that it 
is operating v/ithin the SDL. 
ACTIONS specific to SDL opera- 
tions are keyed- to this option 
such as inclusion of SRN, 

Change Authorization Field 
and Source record revision 
indicator on primary listing. 

Causes HAL/S-360 data to be 
allocated using a halfword as 
the basic memory unit. This 
causes data area alJ.ocation 
which maps directly into HAL/S- 
FC data allocation. 

Causes calls to out-of-line 
routines to be performed via 
long indire'st address constants 
(ZCO'Ns) . 

Allows use of SCAL/SRET instruc- 
tions for subroutine linkage. 

If offj: BAL linkage is used. 

SCAL is meaningless if 
NOMICROCODE is Specified. 

Allows use of instructions which 
only exist on late versions of 
the Space Shuttle GPC. This 
includes SCAL, SRET, MVS, MVH 
and BIX. Use of SCAL and SRET 
may be separately controlled 
with the SCAL option. 

Causes special processing of user- 
defined symbols which appear 
within an EXTERNAL GOMPOOL 
template v/hich is included in 
another compilation. Any items 
in such a COMPOOL which are not 
referenced by the primary compila- 
tion unit are not printed in 
the symbol table listing. 
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Type 2 Options 


Type 2 options have "values" which may be altered by 
the user. The values are specified by including the pseudo- 
assignment statement: 


...,<type 2 opt>=<value> , I . . 

in the FARM field where <type 2 opt> is one of the legal 
type 2 options, and <value> is the value to be used during 
compiler execution. The form of <value> is determined by 
the specific options. Some Type 2 options have alternate, 
shorter spellings which may be used interchangably with 
the standard forms. 

The following Type 2 options are recognized. The 
default values shown are used in the absence of overriding 


FARM field 

specifications . 



Standard 

Alternate 

Default 

Function 

PAGES= 

P= 

250 

Sets the maximum page num- 
ber to be allowed in genera- 
tion of the primary compila- 
tion listing. 

LINECT= 

"A 

LC= 

59 

Sets the maximum number of 
lines which will be printed 
on any one page of either 
the primary or secondary 
source listing. 

TITLE= 

T= 

null 

Specifies 1 to 60 characters 
used by the compiler when 
printing header informeition 
at the top of each page of 
the listing. 


SYM= 200 Specifies the size of the 

compiler’s symbol table. 

MS= 500 Specifies the maximum 

number of characters 

allowed in text of macro 
definitions . 


SYMBOLS^ 

MACROSIZE= 
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Standard 

Alternate 

Default 

LITSTRINGS= 

LITS= 

2000 

COMPUNIT== 

CU= 

0 


XREFSIZE= 

XS= 

2000 

CARDTYPE= 

O 

II 

null 


LABELSIZE= LBLS= 1200 


,DSR= none 1 


Function 

Specifies the maximum total 
number of characters allowed 
in character literals in a 
table. 

Specifies a compilation unit 
number to identify the unit 
of compilation. The number 
is made available in the SDF 
and in the Block Data Areas 
for code blocks in a HAL/S-FC 
compilation. 

Specifies the number of cross 
reference table entries allo- 
cated by the compiler. Each 
entry used 4 bytes of storage. 

Specifies pairs of characters 
which define a mapping of 
arbitrary input record types 
(column 1 of the record) into 
the standard types (E,M,S,C, 

D, and blank) . E.g, CT=XYCM 
would cause any ’X' records 
to be compiled as comments 
and any ’ T ' records to be 
compiled as 'M' records. 

Specifies the maximum number 
of internal label poiruts 
which will be maintained by 
the code generator. 

Specifies the value to be used 
for the data sector register 
in the right hand halfword 
of the R2 operand of the fWH 
instruction. The compiler 
will use this value explicitly 
when it is not possible to 
use a standard Z-type address 
constant in which the DSR 
field is filled in by the 
linkage editor. 


OTEODUCmnaTY OP '011^ 

FAOE iS Fl: 1 
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Appendix B 
Compiler Directives 


The following compiler directives have been defined for the 
HAL/S-PC compiler. 

a) The DEVICE directive has the form: 

D DEVICE CHANNEL=n < opt ion > 

This option is accepted by the HAL/S-FC compiler 
to insure compatability of source input with the 
HAL/S-360 compiler. It has no effect in HAL/S-FC 
operation. 

b) The INCLUDE directive has the form: 

D INCLUDE <name> <option> 
or 

D INCLUDE TEMPLATE <unit name> <option> 

This directive names a member of an include library as 
defined in Section 2.2. The <option> may be "NOLIST" 
or null. The "NOLIST" option indicates that the 
included text is not to be listed. 


c) The PROGRAM directive has the form; 
D PROGRAM ID=<id> 


This directive provides a Program Identification 
Name to be used by the compiler to determine access 
rights to controlled resources as described in 
Section 2.3. 

d) The version directive has the form: 

D VERSION @ 

This directive provides version information for templates. 
It is generated and checked automatically by the compiler. 
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e) The EJECT directive has the form: 


D EJECT 

and causes the compiler to eject a page before 
resuming generation of the primary source listing. 

The EJECT directive record is not printed on the 
listing. 

f) The SPACE directive has the form; 

D SPACE [<n>] 

where <n> is an integral number. 

This directive causes the compiler to skip <n> lines 
prior to generation of the next line in the primary 
source listing. The <n> may be omitted in which case 
one line is skipped. If <n> is greater than 3, 3 lines 
are skipped. The SPACE directive is not printed on the 
listing. 
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Appendix C 


Error Classifications 


Notes "b" denotes a blank* 


CLASS a: assignment STATEMENTS 

A ARRAY ASSIGNMENT 

V COMPLEX VARIABLE ASSIGNMENT 

b MISCELLANEOUS ASSIGNMENT 


CLASS Bs COMPILER TERMINATION 


B HALMAT BLOCK SIZE 

N NAME SCOPE NESTING 

S STACK SIZE LIMITATIONS 

T TABLE SIZE LIMITATIONS 

X COMPILER ERRORS 

b MISCELLANEOUS 


CLASS C: COMPARISONS 


b GENERAL COMPARISONS 

CLASS D: declaration ERRORS 


A ATTRIBUTE LIST 

C • STORAGE CLASS ATTRIBUTE 

D DIMENSION 

F FUNCTION DECLARATION 

I INITIALIZATION 

L LOCKING ATTRIBUTE 

Q STRUCTURE TEMPLATE TREE ORGANIZATION 

S FACTORED/UNFACTORED SPECIFICATION 

T TYPE SPECIFICATION 
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/ 


u 

b 


UNDECLARED DATA 
MISCELLANEOUS 


CLASS E: expressions 


A' ARRAYNESS 

B BIT STRING EXPRESSIONS 

C CROSS PRODUCT 

D DOT PRODUCT 

L LIST EXPRESSIONS 

M MATRIX EXPRESSIONS 

0 OUTER PRODUCT 

V VECTOR EXPRESSIONS 

b MISCELLANEOUS EXPRESSIONS ^TOOBlTOIBILITy OF 

PKI(HNALPAGETr- 

CLASS F: FORMAL PARAMETERS & ARGUMENTS 

D DIMENSION AGREEMENT 

N NUMBER OF ARGUMENTS 

S SUBBIT ARGUMENTS 

1» TYPE AGREEMENT 


CLASS G: STATEMENT GROUPINGS (DO GROUPS) 

B BIT TYPE CONTROL EXPRESSION 

C CONTROL EXPRESSION 

E EX IT /RE PEAT STATEMENTS 

L END LABEL 

V CONTROL VARIABLE 


CLASS i: identifiers 

L LENGTH 

R . REPLACED IDENTIFIERS 

S QUALIFIED STRUCTURE NAMES 


CLASS U: LITERALS 

B BIT STRING 

C CONVERSION TO INTERNAL FORMS 

F FORMAT OF ARITHMETIC LITERALS 

S CHARACTER STRING 


CLASS M: MULTILINE FORt^AT 

c overpunch context 

E E-LINE 

O OVERPUNCH USE 
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if 'y^ 

I 


S S-LINE 

b COMMENTS 


CLASS P: PROGRAM CONTROL & INTERNAL CONSI STANCE 

A ACCESS CONTROL 

C COMPOOL BLOCKS 

D DATA DEFINITION 

E EXTERNAL TEMPLATES 

F FUNCTION RETURN EXPRESSIONS 

L LABELS 

M MULTIPLE DEFINITIONS 

P BLOCK, DEFINITION 

S PROCEDURE/FUNCTION TEMPLATES 

T TASK DEFINITIONS 

U CALLS FROM UPDATE BLOCKS 

b MISCELLANEOUS 


CLASS Q: SHAPING FUNCTIONS 

A ARRAifNESS 

D DIMENSION INFORMATION 

S SUBSCRIPTS 

X ARGUMENT TYPE 


CLASS R; REAL TIME STATEMENTS 

E ON/SEND ERROR STATEMENTS 

T TIMING EXPRESSIONS 

U UPDATE BLOCKS 


CLASS S: SUBSCRIPT USAGE 


C 

P 

0 

R 

S 

T 

V 


SUBSCRIPT COUNT 
PUNCTUATION 
PRECISION QUALIFIER 
RANGE OF SUBSCRIPT VALUES 
USAGE OF ASTERISKS 
SUBSCRIPT TYPE 
VALIDITY OF USAGE 


‘CLASS T: I/O STATEMENTS 


C CONTROL 

D DEVICE NUMBER 

b MISCELLANEOUS 



CLASS U: UPDATE BLOCKS 
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I 

p 

T 


IDENTIFIER USAGE 
PROGRAM BLOCKS 
I/O 



!■ 



COMPILE-TIME EVALUATIONS 


arithmetic OPERATIONS 
CATENATION OPERATIONS 
uncomputable expressions 
FUNCTION EVALUATION 


CLASS X: implementation DEPENDENT -FEATURES 

PROGRAM ID directive 
D DEVICE DIRECTIVE 

T INCLUDE DIRECTIVE 

M UNKNOWN OR INVALID DIRECTIVE 




